SYSTEMS ENGINEERING LABORATORIES PROGRAM LIBRARY 

SOFTWARE DESCRIPTION 

CATALOG NO. 300015D 
DOCUMENTATION REV* N /A 
DATE Nov 7, 1969 

PROGRAM TITLE: 810A/B General Source Update 

PURPOSE: To provide a convenient means of updating 

source programs stored on magnetic tape 
(7-track) or paper tape. 

CONFIGURATION: Basic 810A/B Computer 


SOFTWARE ENVIRONMENT : Stand Alone 


PROGRAM LANGUAGE: 810 Assembly 


SIZE: 02562 TIMING: N/A 


*This is used when the program description only is revised and 
does not reflect any change to the listing, tape, etc. 
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REASON FOR CHANGE: Increase capability 

USE: 

This program must be loaded above the BTC locations (1060, 1061) if magnetic 
tapes are to be used. It is assumed that the magnetic tapes are connected to 
BTC #1. 

Three parameters are required in order to perform the functions provided in this 
program. They are: 

1) CD - The peripheral Control Device 

2) ID - The peripheral Input Device 

3) OD - The peripheral Output Device 

These may be one of the following: 

1) KB - ASR- 33 Keyboard 

2) TT - ASR-33 paper tape reader/punch 

3) PT - High-Speed Paper Tape Reader/Punch 

4) CD - Card Reader 

5) LP - Line Printer 

6) MO through M7 - Magnetic tape unit 0 through 7 respectively. 

Upon initial execution of the program, the program will request the control device 
parameter by typing n CD" on the ASR-33 Keyboard. The reply must be either 
CD for Card Reader or KB for Keyboard. If the Keyboard is selected as the Control 
Device, the program will request the Input Device parameter by typing n ID n , and 
the Output Device by typing "OD". The reply may be any one of the above. 

When the card reader (CD) is selected as the control device the first card must 
be of the form: 

ID=XX, OD=YY 

'XX" and n YY n may be any of the above I/O designators. 

Note 

All control cards start in column 1 and do not allow embedded 
blanks. 
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The following functions are available: 


1) COPY 

2) ADVF 

3) DELE 
.4) REWD 

5) INSE 

6) WEOF 


Allows for copying records or files from one device to another 

Skips files on magnetic tape 

Skips records on input device 

Rewinds magnetic tape 

Insert records from the input device 

Write end of file on magnetic tape 


Three additional commands are available for program control. They are: 


1) QUIT 

2) SEQN 

3) / 


Terminates update run 

Resets sequence counter 

Returns control to the ASR-33 Keyboard 


The following describes in detail the functions listed above. In all cases, the 
control information starts in column one and does not accept embedded blanks. 


1. COPYXXXX or COPY00YYFILES 
XXXX = 0001 to 9999 
YY = 01 to 99 

COPYXXXX will copy XXXX decimal records (card images) from the 
input device to the output device. 


COPYOOYY will copy YY decimal files from the input device (magnetic tape 
only) to the output device. 


If Sense Switch 1 is set, the end of file will not be copied to the output 
device. In either case, "EOF” will be typed on the Keyboard indicating 
that a file has been copied. 

Note 

Note that when copying from magnetic tape to any other peripheral 
type, if SSW 1 is not set, a garbage record will be output whenever 
an end of file is encountered on the input tape. 

When copying records, a card image with $EOF in the first four columns 
will be interpreted as an end of file. This is especially useful in copying 
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a card deck of undetermined length to magnetic tape. This will output 
an end of file as described above. 


2. ADVFXX or ADVFXX, YY 

XX = MO through M7 to designate tape unit 0 through 7. 

YY = Number of files (decimal) to be advanced (skipped) 

As each file is being skipped, ’’FILE SKIPPED” will be logged on the 

Keyboard. This may be suppressed by setting sense switch #2. 

Note 

n FILE SKIPPED” is logged just prior to issuing the Advance File 
instruction to the tape controller. Therefore, the tape will be in 
motion after the message is logged until an end of file mark is 
sensed. 


3. DELEXXXX 

XXXX = Number of records (decimal) to be skipped on input device. 


4. REWDXX 

XX = MO through M7 to designate rewinding tape unit 0 through 7 
respectively. 


5. INSE 

Will cause subsequent inputs from the control device to be output to the 
output device until encountering an input with a / in column one. 

Essentially, the occurrence of an INSE in the control stream converts 
the control device to the input device until a / is encountered which will 
then return the control device to the status of supplying control informa¬ 
tion. 

6. WEOF 

Causes an end of file to be written on the output device (magnetic tape only). 


7. QUIT 

Terminates the update run with a halt condition. 


Page 4 of 7 



SEE 30001 5D 

8. SEQN 

Causes the sequence counter to be reset. All operations at the record 
level are cummulalive. That is, to copy three files of ten records would 
require COPYOOIO, COPY0020, CQPY0030. -To copy or delete an addi¬ 
tional 25 would require - a'COP Y0055 ■ or DELE0055 unless the command 
were preceded by a SEQN command, which would then accept a COPY0025 
or DELE0025. This is of primary use when working with multiprogram 
files such as the machine coded library. 

9. / (Slash) 

Causes the update program to request new I/O parameters. This should 
not be confused with the / (slash) as interpreted by input stream which 
acts as a terminator for records being inserted as described under 
INSE. 

Three error messages are provided: 

1) INVL 

2) SEQC 

3) CARD 
ERR 


An invalid command has been input. 

The number of records specified on a COPY or DELE command 
is less than that already processed. 

The I/O parameter card contains an invalid peripheral or is not 
of the proper format. 
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Example 


CD 


CD 


ID=MO,OD=Ml 

COPY 0003FILES 

EOF 

EOF 

EOF 

COPY 0029 
INSE 

LAA ABC 
STA DEF 
/ 

DELE0031 
COPY9999 
EOF 
/ 

CD 

KB 

ID 

Ml 

OD 

LP 

RE W DM1 
SEQN 
COPY 0050 
ADVFM1, 02 


Output on Keyboard by Update 

Parameter input via Keyboard by operator to specify 
card reader input, for control information. 

Input device is magnetic tape unit 0, Output device 
is magnetic tape unit 1. 

Copies 3 files from magnetic tape 0 to 1. 


Copy 29 records from magnetic tape unit 0 to 1. 
Takes input data from control device 
Inserted in output file 
Inserted in output file 

Terminates inputs from control device 

Deletes sequence numbers 30 and 31 from input file 

Copies until reading an end of file 

Returns to Update for new parameters 

Assign Keyboard as control device 

Assign magnetic tape 1 as input device 

Assign line printer as output device 

Rewind magnetic tape unit 1 

Reset sequence counter 

List first 50 records on magnetic tape 1 

Skip to beginning of third file 


Program type outs 
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FILE SKIPPED 
FILE SKIPPED 

COPYOOO1FILE List third file 

REWDM1 Rewind magnetic tape unit 1 

QUIT Terminate update 


Program type outs 
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0001 



# 

3000150 

dl0A/8l0b GENERAL S0JRCE UPDATE 

0002 







0003 

00000 

oooooooo 


KEL 



0004 

00000 

00000003 

STRT 

OLA 



0005 

00001 

03101047 


ST A 

S c 3 C 


0006 

00002 

03100303 


ST A 

Sc on 


0007 

00003 

03100302 


ST A 

SEOE 


0006 

00004 

11100045 


bRU 

COO 


0009 

00005 

0107 7777 

AID 

LA A 

Sf 1 


0010 

00006 

35100000 


0 ALL 

M t 'aI R 

TYPE ID 

0011 

00007 

35401021 


LIAO 

MG2 


0012 

00010 

00000002 


U A1 A 

2 


0013 

00011 

01000001 


LAA 

= 1 


6014 

00012 

35100000 


CALL 

HIaIR 

INPUT ID NUMBER 

0015 

00013 

35400671 


U AO 

10 


0016 

00014 

00000002 

\ 

OAT A 

2 


0017 

00015 

02100671 


LBA 

10 

FIRST CHARACTER 

0018 

00016 

01100672 


LAA 

10*1 


0019 

00017 

00001016 


LSL 

8 

2ND CHARACTER 

0020 

00020 

00001014 


ERL 

8 


0021 

00021 

12100514 


SPb 

CHEK 

SEE IF LEGAL! ID 

0022- 

00022 

11100005 


bRU 

A I 0 

ERROR EXIT 
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00023 
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10 

/ 

0024 
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0107/777 

A a D 

LAA 

= ”1 


0025 
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2 
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00 
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2 
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00 
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LAA 
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P 
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I- RL 

8 
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CHEK 
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00041 

11100024 
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ERROR EXIT 
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N£G 
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00 
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bRU 

SET 



N 0V, 7, 1969 


*0 

*D 

*0 


*U 
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0041 
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LAA 
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00046 

35100000 


CAUL 
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2 
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00051 

01000001 


LAA 
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CP 
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C0O 
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\ 
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0075 

00107 

00000002 


IV t u 


0076 

00110 

03100673 


STA 

0 P 

0077 

00111 

1507/773 
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aqn 

LA A 
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CMA 

SLSH 
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*D 
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BRU 

NO SL 
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*D 
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«D 

0092 
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StQZ 
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*D 
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C 
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0098 
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' 
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COLUMN 7 

*0 
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CMA 
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#0 
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*0 
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IT IS A FILE COPY 

*D 
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*D 

0104 
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SPb 
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*0 

0105 

00142 

11100153 


BRU 

ER 


*D 

0106 

00143 

03100302 


STA 

StQF 

NUMBER 0F FILES TO COPY 

«D 

0107 

00144 

0107/777 
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='77777 

PAU (NUMBER OF RECORDS TO BE COPIED 
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St 3D 


* D 
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RAGN 


*D 
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CARD 


*D 
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ERROR 


0113 

00152 

11100161 


BRU 

06 



0114 

00153 

0107/777 

ER 

LAA 
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0115 

00154 

35100000 


GALL 

Mi NR 

TYPE bRROR MSG 


0116 

00155 
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UAL 

MG5 



0117 

00156 

J0000004 


DA 1 A 
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0118 

00157 

J0000000 


HU 


' 


0119 

0016Q 

11100117 


BRU 

AGN 



0120 

00161 

03101050 • 

OK 
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St 3D 

SAVE DESIRED SEQUENCE NO 


0121 

00162 

15101047. 


DMA 

SEJC 



0122 
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11100153 
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ER 
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0123 

00164 

11100153 


bRU 

ER 

z 


0124 

00165 

01100671 

RAGN 

LAA 

ID 

> READ CARD 


0125 

00166 

12100611 


SPd 

Hi WR 



0126 

00167 

02100677 


LB A 

CARD 


*0 

0127 

00170 

01100700 


LAA 

CARD + 1 


*D 

0128 

00171 

00001016 


LSL 

B 


*0 

0129 
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00001014 
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8 


*D 

0130 
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04100277 


STB 

C1C2 


*D 

0131 
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LBA 
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#D 
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01100702 
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*D 

0133 

00176 

00001016 


LSL 

8 


*0 
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00001014 


h RL 

8 


*D 
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C1C2 


#0 

0136 
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15100304 
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DE0F 


*D 
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00202 

11100211 


bRU 

NEOF 

N0 

*D 
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\ 
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YES 
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\ 
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* D 
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00000006 
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F0UND %B CHECK FOR *0F7 

*D 
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D £ 0 F * 1 


*D 
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NEOF 


*D 
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11100272 
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TE0F 

E0F READ TYPE AND G0 BACK F0R CONTROL INF0 

*D 

0144 

00211 

01100673 
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LAA 

0D 


*0 

0145- 

00212 

12100611 
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WRITE RECORD 


0146 
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14101047 
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SEQC 



0147 
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01101050 


LAA 

SE3U 
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00215 
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SEQC 
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00000033 
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11100117 
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RAGN 
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EOF 
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0213 00340 11100361 6RU 

0214 00341 11100343 bRU 

0215 00342 11100361 bRU 

0216 00343 12100531 5Pd 

0217 00344 11100153 bRU 

0218 00345 03101050 STA 

0219 00346 15101047 CMA 

0220 00347 11100153 bRU 

0221 00350 11100153 bRU 

0222 00351 01100671 DEL* LAA 

0223 00352 12100611 SPd 

0224 00353 14101047 IMS 


ru SEE IF A 0 FOR DELETE 
D 

NOD 

*♦2 

NOD 

CNVT C0NVER COLS 1-4 T0 BINARY 

ER NOT A VALID SEQUENCE NUMBER 

SEQO SAVE DESIRED SEQ N0 

StOC 
ER 
ER 
ID 

HSWR 
SEQC 


READ RECORD FROM IN PUT DEVICE 





o 


o 


o 


Q 


PAGE 

7 

DATE NOV « 7 

.1969 

810A/B 

0225 

00354 

01101050 


LAA 

SE3D 

0226 

00355 

15101347 


CM A 

St3C 

0227 

00356 

00000033 


IN 0 P 


0228 

00357 

11100117 


bRU 

AON 

0229 

00360 

11100351 


bRU 

DcLR 

0230 



* 



0231 



* TfcST T C 

' SEE IF COL 

0232 



* 



0233 

00361 

15101046 

N0D 

DMA 

I 

0234 

00362 

11100376 


bRU 

NO I 

0235 

00363 

11100365 


bRU 

* + 2 

0236 

00364 

11100376 


bRU 

NO I 

0237 

00365 

01100675 

AQGO 

LAA 

CO 

0238 

00366 

12100611 


SPb 

H $ W R 

0239 

00367 

01100677 


LAA 

CARO 

0240 

00370 

15101051 


CMA 

SLSH 

0241 

00371 

11100373 


bRO 

**2 

0242 

00372 

11100117 


bRU 

AON 

0243 

00373 

01100673 


LAA 

00 

0244 

00374 

12100611 


SPb 

Hi WR 

0245 

00375 

11100365 


bRU 

AGGG 

0246 

00376 

15101037 

N0I 

CMA 

W 

024 7- 

00377 

11100411 


bRU 

NOW 

0248 

00400 

11100402 


bRO 

» + 2 

0249 

00401 

111004H 


bRU 

NOW 

0250 

00402 

01100673 


LAA 

00 

0251 

00403 

1507/772 


CMA 

= -6 

0252 

00404 

00000033 


NOP 


0253 

00405 

11100407 


bRU 

**2 

0254 

00406 

11100117 


bRU 

AGN 

0255 

00407 

P5100000 


CALL 

E i 0 F 7 

0256 

00410 

11100H7 


bRU 

AGN 

0257 

00411 

15101043 

N0W 

CMA 

A 

0258 

00412 

11100506 


bRU 

ER I 

0259 

00413 

11100420 


bRu 

GOTA 

0260 

00414 

15101044 


CMA 

R 

0261 

00415 

11101071 


bRU 

NOR 

0262 

00416. 

11100466 


dRU 

QOTR 

0263 

004 17 

11101371 


dRU 

NOR 

0264 

00420 

121004/1 

GOT A 

SPb 

A^R 

0265 

00421 

03100307 


STA 

TMP SI 


GENERAL SOURCE UPOATE 3000150 


HAVE WE READ ALL RECORDS NOT REQUIRED 

SEOD LESS THAN SEUC-NoT °0SSIdLE 
s YES 

READ ANOTHER RECORD 
1 IS AN I TO INSERT 


IS IT A / 

NO 

YES 

NO 

WRITE ON OUTPUT DEVICE 


write end of file 


WRITE END 0F FILE 

HOLi 2/6/69 *C 
HDL 2/6/69 *C 
M0(_ 2/6/69 *c 
MOL 2/6/69 *C 
HDL i 2/6/69 *C 
viOL^ 2/6/69 *C 
HOL: 2/6/69 *C 

ORc TAPE UNIT NO, 


»D 

»D 


PAGE ^ 8 DATE ' N0V, 7,1*69 81QA/B GENERAL SOURCE UPDATE 300015D 


0266 

00422 

35100000 


0 ALL 

A 4 0E7 





# 

L 


0267 

00423 

12100456 


SPb 

SS2T 

CHECK IF LAGGING EOF SKIPPED 

IS WAM T£ D 



« 

•D 

0268 

00424 

01100705 


LAA 

CARD+6 





# 

C 


0269 

00425 

15100300 


LMA 

COMA 

M0R6 THAN ONE FIlE 




* 

i; 


0270 

00426 

1110011.7 


bRU 

AGN 

N0 




*c 


0271 

00427 

11100431 


bRU 

* + 2 

YES 




*0 


0272 

00430 

11100117 


bRU 

AON 





*D 

1 


0273 

00431 

01100706 


LAA 

CARD+7 

shuffle card columns to use 

C N V T 



*c 


0274 

004 32 

03100705 


STA 

CARD+6 





»p 


0275 

00433 

01100707 


LAA 

CARD+8 





*p 


0276 

00434 

03100706 


bT A 

CARD+7 





*p 


0277 

00435 

01000260 


LAA 

= * 260 






*D 

0278 

00436 

03100703 


b T A 

CARU+4 

ZERO THOUSANDS POSITION 





Vd 

0279 

00437 

03100704 


STA 

CARD+5 

ZERO HUNDREDS POSITION 





* D 

0280 

00440 

12100531 


SPb 

CNVT 






fD 

0281 

00441 

11100153 

\ 

bRU 

ER 






f° 

0282 

00442 

03101050 

S 

STA 

SEQD 

STORE NO 0F i FILES 





fD 

0283 

00443 

00000003 


ula 







ft 

1 

D 

0284 

004 4 4 

03101047 


ST A 

SEQC 






fD 

0.285 

00445 

14101047 

adf 

IMS 

SEQC 






fD 

0206 

00446 

01101050 


LAA 

SEQD 






« 

| 

D 

0287 

004 4 7 

15101047 


CMA 

SE3C 






* 

| 

D 

0288 

00450 

00000033 


N0P 







* 

I 

D 

0289 

00451 

11100255 


bRU 

RSTA 






fD 

0290 

00452 

01100307 


LAA 

TMR 






fD 

0291 

00453 

55100000 


U ALL 

ASDE7 

ADVANCE ONE FILE 





| 

D 

0292 

00454 

12100456 


SPts 

SS2T 

CHECK IF LOGGING EOF SKIPPED 

IS W 

A TE D 



« 

1 

0 

0293 

00455 

11100445 


bRU 

ADF 





#G 

i 


0294 

00456 

oooooooo 

SS2T 

*#* 

** 






* 

1 

D 

0295 

00457 

00130402 


SNS 

2 





* G 


0296 

00460 

11300456 


bRU* 

SS2T 





*C 


0297 

00461 

0107/777 


LAA 

Sfl 

L0G on tty 





* 

D 

0298 

00462 

35100000 


U ALL 

44 NR 






« 

D 

0299 

00463 

35400320 


UAL 

M G 8 






« 

D 

0300 

00464 

00000014 


U A T A 

12 






* 

l D 

0301 

00465 

11300456 


bRU* 

SS2T 





#c 


0302 

00466 

12100471 

G0TN 

SPb 

AOR 


mdl 

2/6/69 

*C 




0303 

004 6 7 

3 510 U 0 0 0 


LALL 

R4 4D7 


MDL- 

2/6/69 

*C 




0304 

00470 

11100117 


bRU 

AGN 


MDLi 

2/6/69 

*c 




0305 

00471 

oooooooo 

A^R 

HLf 



MDl 

2/6/69 

*c 




0306 

00472 

01100703 


LAA 

CARD+4 


:M D L 

2/6/69 

»c 







Q 


O 


O 


O 


PAGE 

9 

DATE N0V. 

7,1969 

bioa/b 

G 

tNERAL SOURCE UPOATE 

3 0 0 015 D 

0307 

00473 

15101042 


UMA 

M 


hDL' 

2/6/69 *C 

0308 

004 74 

1X100506 


BRU 

EH 1 


HOL 

2/6/69 *C 

0309 

00475 

11100477 


BRU 

* + 2 


MOL 

2/6/69 *C 

0310 

004 76 

11100506 


BRU 

ERI 


mol 

2/6/69 *C 

0311 

00477 

00000003 


OLA 



mol 

2/6/69 *C 

0312 

00^00 

03101047 


ST A 

SEQC 


HDL 

2/6/69 *C 

0313 

00501 

01100704 


LAA 

CARD+5 


MDLi 

2/6/69 »C 

0314 

00502 

02000017 


LB A 

= '17 


MUL: 

2/6/69 *C 

0315 

00503 

00000027 


ABA 



mol 

2/6/69 *C 

0316 

00504 

05000006 


AMA 

= 6 


mOL- 

2/6/69 *C 

0317 

00505 

11300471 


BRU* 

A OR 




0318 

00306 

01077777 

ER I 

LAA 

= "1 


OUTPUT ERROR MESSAGE TO TTY 

AG 5/15/68 

0319 

00507 

55100000 


GALL: 

HSWR. 




0320 

00310 

35401033 


LIAO 

MG6 


WR ITE I N VL 


0321 

00311 

00000004 


DAI A 

4 




0322 

00312 

00000000 


HL1 





0323 

00313 

11100117 


BRU 

AON 




0324 



* 






0325 



* 

ENTER WITH 2 FULL 

ASCII CHARACTERS IN 8 REGISTER AND COMPARE WITH TA8L 

0326 



* 

TfJ OBTAIN L0I 




0327 



» 

To OBTAIN logical 

DEVICE No-EXIT WITH POSITIVE LOG 

DEV No IN A 

0328 



* 






0329 

00314 

oooooooo 

CHE* *** 

* » 




0330 

00315 

00000006 


1 AB 





0331 

00516 

02077761 


LB A 

=TABL-LAST 




0332 

00317 

15501071 


Oh a 

LAST.l 




0333 

00320 

11100522 


BRU 

* + ? 




0334 

00521 

11100525 


BRU 

» + 4 




0335 

00322 

00000026 


I 8S 





0336 

.00523 

11100317 


Bru 

* - 4 




0337 

00324 

11300514 


BRU* 

CHEK 


not found in table - error exit 

0338 

00525 

00000006 


1 AB 



FoUND-CALCULATE LOGICAL: DEVICE NO 

0339 

00326 

06077760 


SMA 

=tabl-last- 

1 



0340 

003 2 7 

14100514 


1 Mb 

CHEK 




0341 

00530 

11300514 


BRU# 

CHEk 




0342 



# 






0343 



* 

0 0 iM V t R I 

4 FULL ASCI 1 

CHARACTERS IN CARD+1 TO CaRu+4 TO BINARY + EXIT 

0344 




WITH ANSWER in a REG 



0345 

• 


* 






0346 

00331 

oooooooo 

CNV [ *** 

*# 




0347 

00532 

01100703 


LAA 

CARU+4 


COLUMN 5. (FIRST DECADE) 

AG 5/15/68 


PAGE 

10 

• 

DATE NO V * 7 

,1969 

810A/H 3 

ENbRAL SOURCt UPDATE 

3000120 


0 3 4 6 

OOP 3 3 

12100267 



3 H < L 


CHECK L I M I T8 



J 3 4 9 

0 0 2 3 4 

1130J231 


C n J * 

0 N v T 


ERROR EXIT 



0 6 5 0 

0 0 2 3 3 

J 0 0 0 0 0 0 6 


i A D 






0351 

002 <8 

0 / 0 0 1 / 2 0 


0 Y 

= 1000 





06 ) 3 ? 

002 3 7 

04100/03 


b T b 

CA4U+4 


store converted decade 

AG 

5/13/63 

0 3 3 3 

0 0 2 4 0 

J11007Q4 


L A A 

C A R u + 3 


COLUMN 6 (SECOND DECADE) 

AG 

5/13/68 

0334 

00241 

12100267 


b P d 

3 H X i_ 





0333 

002 42 

11300231 


D n‘ u >*■ 

c \ v r 





0 3 3 o 

00243 

00 000 1Q6 


i Ad 






0337 

002 4 4 

07000144 


in P r 

= 10 0 





0333 

00243 

0410J 7Q4 


b r d 

C A R U + 2 


STORE CONVERTED DECADE 

AG 

5/12/68 

0339 

3 0 2 4 6 

01100703 


LA A 

C A R 0 + 6 


COLUMN 7 (THIRD DECADE) 

AG 

5/12/68 

03 6 0 

3 0 2 4 7 

12100267 


b^D 

CH<l 





0361 

0 0 2 2 0 

11300331 


d K U * 

0 N '1 T 


ERROR 



0362 

002 3 i 

00000036 


i Ad 






0363 

00232 

07000012 


f v ! P Y 

= 10 





0364 

00233 

04100703 


bTb 

CARQ+6 


STORE CONVERTED DECADE' 

AG 

5/15/68 

0 3 6 5 

0 0 2 '3 4 

01100706 


LAA 

CARD+7 


COLUMN 6 (FOURTH DECAD=) 

AG 

5/15/68 

0 366 

00 2 3 3 

12100267 


b P d 

CHKL 





0367 

0 32 2 6 

11300331 


dPU* 

CNVT 


ERROR 



0366 

00 23/ 

03100706 


ST A 

CARU+7 


STORE CONVERTED DECADE 

AG 

5/15/68 

0369 

OO26O 

0207/774 


L d A 

3-4 





03 7 O' 

OO261 

00000003 


ULA 



CALCULATE ScON VO IN HI 4ARV 



03 71. 

03262 

02200707 


A v i A 

CARD+ti 

,1 

ADD TO GET HI VARY \) 0MHER 

AG 

5/15/68 

0372 

002 6 3 

J0000026 


i PS 






03/3 

302 64 

11100262 


bPu 

»-2 





0374 

00 2 63 

14100331. 


1 

0 \! V T 





03 73 

00266 

113 002 31 


d P o * 

C.'n/l 





03 7h 










03 7 7 



* C iv f b K k 

: i r -i a 

R e G I S T - 

:R CONTAINING FJLu ASCII NO E 

XIT WITH HI MARY 

0378 



* 1 A 

■ A 






03 79 

00 2 67 

■JO 00 0 000 

Chkl 

* 

»# 





0 3 60 

00 2 7 0 

12000271 


LMA 

= » 2/1 





03 61 

002 71 

1110037/ 


bpy 

CK 


A L t S S 



03 6 2 

00272 

111003/4 


b P u 

» + 2 


A = 



03 6 3 

00273 

113003o7 


bn U a- 

ChKl A 

> 




0364 

0 0 2 7 4 

j 100 0 011 


u A M 

= 9 





03o6 

j 3 2 / p 

14100267 

EXT 

l v D 

CnKl 





03 <6 6 

002 76 

j. 13 0 0 2 6 7 


d P U * 

CH<L 





0 3 8 7 

102 7/ 

12000270 

CK 

L '-i A 

= • 2 7 0 





03 8 6 

0 0 2 ) J 

1110 J 6 j 3 


d P U 

CRK 






o 



o 



■ ■ o 


o 





a 



o 

i 

. o 


,o 

PAGE 

u 

DATE N0V. 7 

#1969 

810A/B 

GENERAL SOURCE UPDATE 

3 0 0 015 D 


0389 

OOoOl 

J1000010 


LA A 

= 8 

= 271 



0390 

00602 

11100575 


dRU 

EXT 




0391 

00603 

15000260 

CKK 

DMA 

= * 260 




0392 

00604 

11300567 


dRU# 

CHKL 

A LESS 



0393 

00605 

11100606 


dRU 

# + l 

A = 



0394 

00606 

02000007 


LB A 

= 7 

A > 



0395 

00607 

00000027 


ABA 





0396 

00610 

11100575 


BRU 

EXT 




0397 



# 






0396 



# CALL H# 

WR EMTER WITH LOG DEV N0 IN A 



0399 



# 






0400 

00611 

00000000 

HJWH 

##* 

## 




0401 

00612 

03100651 


STA 

Hi3 

SAVE LOGICAL; DEVICE NjMdER 

AG 

5/15/68 

0402 

00613 

15000000 


DMA 

= 0 

IS IT OUTPUT 

AG 

5/15/68 

0403 

00614 

11100630 


dRU 

Hi 4 

YES 

AG 

5/15/68 

0404 

00615 

00000033 


NOP 


NO 

AG 

5/15/68 

0405 

00616 

55100000 

H$5* > 

CALL 

HiWR 

CALL 1/0 HANDLER 

AG 

5/15/68 

0406 

00617 

35400677 


UAL 

CARD 




0407 

00620 

00000120 


DATA 

80 




0408 

00621 

00000022 


S A 2 


END OF FILE 


*D 

0409 

00622 

11100624 


BRU 

#>2 



»D 

0410 

00623 

11100221 


BRU 

E0F 



* D 

0411- 

00624 

12100652 


SPd 

CHE 

CHECK FUR SPACES 

AG 

5/15/68 

0412 

00625 

11300611 


BRU# 

HiWR 

NUT ALL 1 SPACES, EXIT 

AG 

5/15/68 

0413 

00626 

01100651 


LA A 

Hi3 

LOGICAL; DEVICE NUMBER 

AG 

5/15/68 

0414 

00627 

11100616 


BRU 

Hi5 

ALL SPACES, INPUT AGAIN 

AG 

5/15/68 

0415 

00630 

02000000 

H$4 

LB A 

= 0 , 


AG 

5/15/68 

0416 

00631 

15077773 


UMA 

= -5 

IS IT TTY PAPER TAPE. 

AG 

5/15/68 

0417 

00632 

11100642 


BRU 

Hi 7 

NO 

AG 

5/15/69 

0418 

00633 

11100637 


BRU 

Hi9 

YES, SUPPRESS TRAILING SPAC£x 

AG 

5/15/68 

0419 

00634 

JL5077776 


UMA 

s-2 

IS IT KEYBOARD UR H, S,P,T, 

AG 

5/15/68 

0420 

00635 

11100642 


BRU 

Hi 7 

NO 

AG 

5/15/68 

0421 

00636 

00000033 


NOP 



AG 

5/15/68 

0422 

00637 

12100652 

H$8 

SPB 

CHE 

CHECK FUR SPACES 

AG 

5/15/68 

0423 

00640 

11100642 


BRU 

*♦2 

GU SUPPRESS TRAILING SPACES 

AG 

5/15/68 

0424 

00641 

11300611 


BRU* 

HiWR 

ALL SPACES EXIT 

AG 

5/15/68 

0425 

00642 

16000120 

H$7 

AMd 

= 80 

JUST OUTPUT SIGNIFICANT DATA 

AG 

5/15/68 

0426 

00643. 

04100647 


6T5 

Hi 9 


AG 

5/15/68 

0427 

00644 

01100651 


LAA 

Hi 3 

LOGICAL DEVICE NUMBER 

AG 

5/15/68 

0428 

00645 

35100000 


UAlL 

HiWR 

170 HANDLER 

AG 

5/15/68 

0429 

00646 

55400677 


UAL 

CARD 


A G 

5/15/68 



PAGE 

12 

DATE N^V, 7 

riy-69 


dl0A/B 

J4 ■); 

30 64/ 

.) J .j 'J j J j 0 

-< "* 

4 4 2 

* * 


j 4 o 1 

.! ) 3 3 j 



9 J J * 

4 !> V 4 


J 4 3 7 

j.) oil 

j j j j '}) o j 

- *, ;< 

4/4 

* * 


j 4 5 J 

0 06 5/ 

j JJOJ ) JO 

C'iF 

X 24 

* -2 


"O' 4 i 4 

j J 6 3 i 

j J JO J ]:)o 


U 9 4 

= J 


J*'i 6 

J 'J o 5 4 

j l .on l• j16 

n 4 

L A A 

0 m 4 U + 7 9,1. 

j 4 3 6 

JO 3 3 3 

19 jnJ J40 


0 v i M 

= '740 

J 4 5 / 

J 0 3 3 3 

i 1 J 3 J 4 9 2 


D o : U ^ 

C i “ 


J 4 i H 

J .) ) 5 7 

i.110 J661 


•i 9 J 

x + 9 


J 4 5 9 

j ;i j 4 j 

i. 1 j j J 6 9 2 


d 4 j a- 

i- 


U 4 4 : i 

J 0 3 6 1 

\b j7/J7 7 


A >: J 

s - 1 


J 4 4 1 

J 0 o 6 7 

j J J J J .) 0 4 


1 J A 



J 4 4 7 

JO 3 3J 

i 9 J / / 6 b 0 


U :'"l A 



J 4 4 i 

Q 0 6 6 4 

i J J J J j j J 


• M /j'H 



04 4 4 

0 0 6 3 3 

x 110 J 6 b 7 


b 8 J 

* + ? 


J 4 4 ? 

J 0-336 

1 110 J 6 p 4 


d 8 j 

4 t> 6 


J 4 4 6 

0064 7 

jl. 11 n J 9 ? 2 


i i d 

* — 


J 4 4/ 

00 o 7 ) 

x 1 _*> Q J 6 o 2 


o2 J* 

3 8*2 


J 4 4 4 

00 671 

JOQOJ Jo 2 

ID 

d 3 a 

? 


; J 4 4 9 

0 0 6 7 i 

JTjO J0Q2 

0 ij 

b 8 d 

9 


34S') 

JO 6 7 3 

J.JOO J JQ 2 

Cu 

o 8 d 

? 


U 4 3 1 

JO 6 7 7 

j J jo j i 2 n 

C A L < J 

o 3 d 

4 J 


0 4 3 p ' 

Jl 01 / 

J 3 J 0 J 2 19 

v ' G 1 

J A i A 

’218 


U 4 3 i 

0 1: J 7 J 

junMi? 


u A 1 A 

•2 12 


J 4 p 4 

J 1 J 7 1 

jo i^jui 

-J 2 

u A i A 

1 1 i 

ij f 1 

J 4 3 4 

01J72 

J D x 2 -J Jj 4 





J4 3 t> 

j 1 .J 2 i 

J 1)X2 J 5i7 


J A I A 

1 * d 

J 1 1 

j 4 3 '3 

J 1. 0 2 4 

J 01 2 J J j 4 





J 4 3 6 

010 7 3 

J J1 ^ 0 3 0 3 

i'U}4 

u A I A 

' • C 

J * 1 

J 4 3 6 

01 0 7 6 

J o i ? j 3 u 4 





J 4 3 7 

01. J 7 7 

j 31 2 J 3 2 3 

j 5 

u A i A 

f f d 

C J J< 

J4 3 7 

01 J i 0 

J J1 2 J yj o 





i4p 7 

01 J J1 

JJit j641 





J 4 3 / 

J 1 0 5 7 

j j 19 J JQ v5 





- J 4 2 9 

31 j 5 6 

J 312J511 


J A i A 

1 f . t 

V \l L * 

J 4 9 ■' 

J 1 J 5 4 

j J x > o J 1 A 





J 4 p -s 

J 1.93 

j 9 1 J -o J 2 0 





j 4 2 

J 1 J i o 

J ) _ 9 . .} J. ^ 4 





J 4 d 9 

Jl J 5/ 

J ) j J J 7 


U A 1 A 

* .3 2 / 


J 4 o ! 

Jl J 4 J 

o J J ) j J J J 

J 

dA i A 
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* HirfH- CARDS PAPER TAPE LINE PRINTER TELETYPE MAGNETIC TAPE 


* 

CALL Hi NR 




CALLING SEQUENCE 



* 

UAC BA 



# 

0AT A NO 



* 

WHERt BA IS BASE 
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00000 30000000 
00000 30000541 
00000 00000006 MTU 
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00004 11100007 
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MAGI 

bAU 

MAG I 

bAU 

MAGI 

bAU 

MAGI 

bAU 

MAGI 

bAU 

MAGI 

bAU 

MAGI 

U A 1 A 

* 4 77 36 

UA F A 

* 47736 

UA 1 A 

* 47736 

UA 1 A 

*47736 

UA] A 

• 47736 

U A 1 A 

• 47736 

UAT A 

*47736 

UA T A 

• 4 77 36 

ua r a 

1 

U A T A 

5 

UA | A 

1 

U A 1 A 

2 

UA 1 A 

1 

UAU 

0 

U A t A 

1 

UA 1 A 

2 

U A j A 

4 

U A I A 

1 

UA 1 A 

1 


Q 


■ '*4 
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NOP CEU - U0H 

CKA 

cka 

CKA 

CKA 

CKA 

CKA 

CKA 

CKA 

CKA 

cka 

CKA 
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DATE N0V, 7*1969 

810A/B GENERAL S0URCE UPDATE 

300015D 



0164 

00204 

0004/736 


data 

'47736 

NOP CEU -• lOB 


0165 

00205 

0004/736 


OA f A 

*47736 



0166 

00206 

00047/36 


0 A f A 

'47736 



0167 

00207 

U004/736 


U A 1 A 

*47736 



0168 

00210 

0004/736 


UA r A 

*47736 



0169 

00211 

0004/736 


UA r A 

* 4 77 36 



0170 

00212 

0004/736 


DA f A 

' 47736 



0171 

00213 

0004/736 


U A I A 

• 47736 



0172 

00214 

11100342 


BRU 

POUT 

-d PAPER TAPE OUT-TELETY a E 

00139900 

0173 

00215 

11100347 


dRU 

PR0T 

-4 LINE PRINTER OUTPUT 

00140000 

0174 

00216 

11100301 


BRU 

T0T2 

-3 CARO PUNCH OUTPUT 


0175 

00217 

11100342 


BRU 

POUT 

-2 PAPER TAPE 0UT-9RPE 

00140200 

0176 

00220 

11100276 


dRU 

TOUT 

-1 KEYBOARD OUTPUT 

00140300 

0177 

00221 

25400000 

C0NV 

UAU 

0 

0 

00140400 

0178 

00222 

11100227 


BRU 

TINP 

1 KEYBOARD INPUT 

00140500 

0179 

00223 

11100227 


BRU 

TINP 

2 PAPER TAPE 1NPUT-HSR 

00140600 

0180 

00224 

11100403 


BRU 

Cl NP 

3 CARD READER INPUT 

00140700 

0181 

00225 

00000033 


IN 0 H 


4 SPARE INPUT 

00140800 

0182 

00226 

11100227 


BRU 

T I MP 

5 PAPER TAPE IN-TELETYPE 

00140900 

0183 

00227 

02100270 

T I NH 

LB A 

I ADI 



0184 

00230 

04100542 


STB 

FI 



0185 

00231 

00000022 


SAZ 




0186- 

00232 

11100234 


BRU 

* + 2 



0187 

00233 

11100075 


dRU 

I M P T 

IGNORE 2ER0 


0188 

00234 

15100735 


CMA 

L067 



0189 

00235 

11100237 


BRU 

*♦2 



0190 

00236 

11100075 


BRU 

I--MPT 

IGNORE DELETE 


0191 

002 3 7 

15100 755 


OMA 

L053 



0192 

00240 

11100242 


BRU 

* + 2 



0193 

00241 

111000/5 


BRU 

I.MPT 

IGNORE LINE FEED 


019 4 

00242 

15100756 


OMA 

L052 



0195 

00243 

11100245 


BRU 

# + 2 



0196 

00244 

11100262 


BRU 

TORO 

TERMINATE CARD ON CRRG, RETURN 


0197 

0024-5 

15100/65 


OMA 

K DEL 



0198 

00246 

mooioo 


BRU 

STAB 



0199 

00247 

11100251 


uRU 

* + 2 

DELETE LINE 0F INPUT 


0200 

00250 

11100100 


BRU 

ST A a 



0201 

00251, 

12100114 


SPB 

IMPC 

INPUT CHARACTER 


0202 

00252 

06100756 


BMA 

L052 



0203 

00253 

00000022 


SAZ 




0204 

00254 

11100251 


BRU 

*-3 




r " r 
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.1969 

81QA/B 

GENERAL SOURCE UPDATE 300015D 



0205 

002 55 

01100006 


LA A 

-I .t> w H 




0206 

00256 

05100754 


AM A 

L025 




0207 

00257 

03100005 


b T A 

H W R 




0208 

00260 

02100/71 


L 8 A 

LUN 




0209 

00261 

11100012 


dRu 

lalo 




0210 

00262 

01100736 

T 09 U 

LA A 

L005 




0211 

00263 

03300536 


S T A # 

3 A 




0212 

00264 

14100536 


i Mb 

3 A 




0213 

00265 

14100537 


i Mo 

NO 




0214 

00266 

11100263 


dRU 

T 0 9IJ +1 




0215 

00267 

11500005 


dRu* 

Hi NR 




0216 

00270 

55400271 

I ADI 

uAu 

*♦1 




0217 

00271 

12100114 


bPb 

I N 3 C 




0218 

00272 

15100756 


LMA 

L052 




0219 

00273 

11100271 


dRU 





0220 

00274 

11300005 


dRU# 

HSWR 




0221 

00275 

11100271 


dRU 

»-4 




0222 

00276 

01100535 

TOUT 

LAA 

ro 

FIRST CHARACTER TEST 


00146500 

0223 

00277 

00000024 


bAP 




00146600 

0224 

00300 

11100304 


dRU 

TO T1 

YES 


00146700 

0225 

00301 

01100221 

T&U 

LAA 

CO N V 



00146800 

0226 

00302 

00001016 


lSl 

8 


CK A 


0227- 

00303 

11100072 


dRu 

SP30*1 




0228 

00504 

01100221 

TOT* 

LAA 

CON V 




0229 

00505 

15100737 


LMA 

LH7 




0230 

00306 

11100310 


dRU 

* + 2 




0231 

00307 

11100316 


dRU 

NRPG 

1= N E W P A 0 £ 



0232 

00510 

15100740 


OMA 

LU 7 4 




0233 

00311 

11100313 


dRu 

* + 2 




0234 

00512 

12100324 

twin 

bPd 

CRLF 

OUTPUT 2LF.0/R 


00148500 

0235 

00513 

12100324 


bPd 

CRlF 

ALL OTHERSeC/R»LF 


00147800 

0236 

00514 

11100301 


dRU 

TO T2 

CONVERT AND OUTPUT 


00147900 

0237 

00515 

12100646 


bPd 

CL 

CRRG, RET,/ LINE FEED 



0238 

00516 

14100541 

N W p u 

I Mb 

LINE 

COUNT DORN REMAINING LINES 


00148100 

0239 

00517 

11100515 


dRU 

*-2 



00148200 

0240 

003 20 

12100531 


bPd 

NPO 

OUTPUT 4 JF 


00148300 

0241 

00521 

1110 0 0 7 3 


dRU 

S ^ 3 id + 2 




0242 



it — - - 


•C/R,l1NE FEED and 8O0KKEEP LINE COUNT 


00149700 

0243 

00522 

12100546 


bPd 

CL 

CRRG, RfcT # / LINE FEED 



0244 

00523 

11500324 


dRu* 

CRLF 



00149900 

0245 

00524 

noooooo 

CRl> 

dRu 

** 



00150000 




'0 



o 


~ " o 


o 
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'#1969 

810 A/B 

GENERAL S0URCE UPOATE 

300015D 


7 

0246 

00325 

14100541 


108 

LIME 




00150100 

0247 

00326 

11100322 


6RU 

»-4 




00150200 

0248 

0032 7 

12100331 


bPB 

MP3 

NEW PAGE 



00120300 

024 9 

00330 

11300324 


BRU# 

CRLF 




00150400 

0250 

00331 

11000000 

NPG 

8RU 

*# 




00180500 

0251 

00332 

01100741 


LAA 

L077 




00150600 

0252 

00333 

03100541 


8 T A 

LIME 




00150700 

0253 

00334 

01100742 


LAA 

L018 




00150800 

0254 

00335 

03100544 


bT A 

PAGE 




00180900 

0255 

00336 

12100546 


bPd 

CL 

CRRG, RET,/ LINE FEED 




0256 

00337 

14100544 


i Mb 

PAGE 




00151100 

0257 

00340 

11100336 


BRU 

#-2 




00151200 

0258 

00341 

11300331 


BRU* 

MP3 




00151300 

0259 

00342 

02100757 

Paul 

LB A 

LIDO 




00151400 

0260 

00343 

04100542 


bTB 

FI 




00151500 

0261 

00344 

11100301 


BRU 

T0T2 




00151600 

0262 

00345 

12100546 

P0Tl 

bPB 

CL 

CRRG, RET,/ LINE FEED 




0263 

00346 

11300005 


BRU* 

Hi MR 



CKA 


0264 

0034 7 

01100535 

P R 0 I 

LAA 

FC 




00151900 

0265 

00350 

00000023 


b AiM 





00152000 

0266 

00351 

11100301 


BRU 

T0T2 





0267 

00352 

01100760 


LAA 

L101 




00152500 

0268 

00353 

03100542 


bT A 

FI 




00152600 

0269 

00354 

03100535 


bT A 

FC 




00152700 

0270 

00355 

01100221 


LAA 

C0MV 




00132800 

0271 

00356 

15100743 


UM A 

L102 





0272 

00357 

11100361 


BRU 

* + 2 




00153100 

02-73 

00360 

11100400 


BRU 

PRd 1 




00153200 

0274 

00361 

15100737 


UH A 

Lll 7 





0275 

00362 

11100364 


BRU 

* + 2 




00153900 

0276 

00363 

11100375 


BRU 

Z00L 




00154000 

0277 

00364 

15100740 


UH A 

L011 

, 




0278 

00365 

11100367 


BRU 

» + ? 




00153500 

0279 

00366 

11100372 


BRU 

TW0L 




00153600 

0280 

00367 

00130105 

0nEL 

UEu 

5, W 





0281 

00370 

00002100 


UA [ A 

* 2100 

FEED LINE, FILL BuFFER 




0282 

00371 

11100301 


BRU 

T3T2 

START FILLIMG BUFFER 




0283 

003 72 

00130105 

TW0L 

UEU 

5,N 



CKA 


0284 

00373 

00002000 


U A r A 

* 2000 

FEEU LINE 




0285 

00374 

11100367 


BRU 

0 N E L 





0286 

00375 

00130105 

Z00L 

UEU 

5 » N 



CKA 
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810A/B 

U2B7 

00376 

00001100 


UA 1 A 

• llUO 

0288 

00377 

11100301 


BRU 

TJT2 

0289 

00400 

J013J105 

PR 01 

CEO 

5 * 4 

0290 

00401 

00000400 


DA i A 

* JOU4QO 

0291 

00402 

11300005 


uRu* 

HiRR 

0292 

00403 

01100453 

C I NP 

LAA 

FRZ9 

0293 

00404 

03X00545 


3TA 

FONT 

0294 

00405 

02100744 


LB A 

DZR0 

0295 

00406 

01100221 


LAA 

CON V 

0296 

00407 

15100484 


UMM 

06TH 

0297 

00410 

11100412 


BRU 

*♦2 

0298 

00411 

11100445 


BRU 

A MB5 

0299 

00412 

15100754 


DMA 

LOO 4 

0300 

00413 

11100415 


BRU 

* + 2 

0301 

00414 

11100447 


BRU 

A MB1 

0302 

00415 

15100733 


CMA 

EXCL 

0303 

00416 

11100420 


BRU 

**2 

0304 

00417 

11100446 


BRU 

AMB4 

0305 

00420 

00000022 


is AZ 


0306 

00421 

11100424 


BRU 

* +3 

0307 

00422 

02100745 


LB A 

L035 

0308 

00423 

11100450 


BRU 

STB 

0309- 

00424 

00000416 


LSL 

4 

0310 

00425 

00000024 


SAP 


0311 

004 26 

16100455 


A MB 

OSTY 

0312 

00427 

00000116 


LSL 

1 

0 313 

00430 

00000024 


aAP 


0314 

00431 

16100746 


AMB 

0022 

0315 

00432 

00000116 


LSL 

1 

0316 

00433 

00000024 


SAP 


0317 

00434 

15100/45 


AMB 

L035 

0318 

00435 

00000116 

LSL 

LSL 

1 

0319 

00436 

00000023 


SAN 


0320 

004 37 

11100442 


B R U 

IMS 

0321 

00440 

16100747 


AMB- 

0003 

0322 

00441 

16100545 


AMB 

FONT 

0323 

00442 

14100645 

I .MS 

i Mb 

FONT 

0324 

00443 

11100435 


BRU 

L8L 

0325 

004 44 

1110U450 


BRu 

SIB 

0326 

00445 

16000020 

AN 86 

AMB 

= * ?□ 

0327 

00446 

16100746 

AMB4 

AMB 

0022 


GENERAL. SOURCE UPDATE 


3Q0015D 


PAGE EJECT, FILL BUFFER 

CKA 
CK A 
CK A 

-9 

SHIFT CUUNTcR 
0 

UNITARY CODED CHAR 
TEST FOR QUESTION M ARK 
NO 

MUl 1/13/69 #8 

TEST FOR ZERO 

NO 

YES 

NO 

YES 

TEST FOR SPACE 
NO 
*20 


TEST FOR 12 PUNCH 
* 60 

TEST FOR 11 PUNCH 
' 40 

TEST FOR U PUNCH 
* 20 

TEST FOR NEXT Row PUNCH 
NO 

ADJUST T'OTAu F0R PUNCH 


NO 

YES 


*40 


MOl. 1/13/09 *8 
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3000150 


0328 

004 4 7 

16100747 

ArlSl 

AMd 

D 0 0 3 

'12 





0329 

00450 

12100516 

STB 

6PB 

BO DA 






0330 

00451 

00000004 


1 8 A 







0331 

00452 

11100100 


dRU 

STAB 






03 32 

00453 

0017/767 

F RZ9 

UA 1 4 

-9 






0333 

00454 

00003000 

06TH 

UA 1 A 

* 5000 



MOL- 

1/13/69 

*8 

0334 

004 55 

00000060 

0STT 

DAT A 

4 8 






0335 








mUL 

1/10/69 

«B 

0336 



» 



BCD 

ASCII 

mdl- 

1/10/69 

*B 

0337 



* 





MDL; 

1/10/69 

*B 

0338 

00456 

00130261 

TABL 

UA 1 A 

*130261 

00,01 

260,261 

MUL. 

1/10/69 


0339 

00457 

00131263 


UA TA 

*131263 

02,03 

262,263 

MDL> 

1/10/69 

*B 

0340 

00460 

00132265 


U A I A 

•132265 

04,05 

264,265 

MOL: 

1/10/69 


0341 

00461 

00133267 


UA i A 

'133267 

06,07 

266,267 

MDL; 

1/10/69 

»B 

0342 

00462 

00134271 


U A1 A 

*134271 

10,11 

2/0,271 

MOL; 

1/10/69 


0343 

00463 

00130275 


DATA 

•130275 

12,13 

260,275 

mdl. 

1/10/69 


0344 

00464 

00123672 


U A T A 

' 123672 

14,15 

247,272 

MDLs 

1/10/69 


0345 

00465 

00137300 


U A T A 

*137300 

16,17 

276.300 

MDL! 

1/10/69 


0346 

00466 

00120257 


DATA 

•120257 

20,21 

240,257 

mdl 

1/10/69 


0347 

00467 

00l5l724 


UA1 A 

' 151724 

22,23 

323,324 

mDu: 

1/10/69 

#8 

0348 

00470 

00152726 


UA T A 

• 152726 

24,25 

325,326 

MDL! 

1/10/69 

»B 

0349 

00471 

00153730 


UA f A 

* 153730 

26,27 

327,330 

MDL; 

1/10/69 


0350 

00472 

00154732 


U A T A 

'154732 

30,31 

331,332 

MDLi 

1/10/69 

#8 

0351 

00473 

00157254 


UAT'A 

*157254 

32,33 

336,254 

MDl 

1/10/69 

* B 

0352 

00474 

00124243 


UA T A 

* 124243 

34,55 

250,243 

mdl 

1/10/69 


0353 

004 75 

00156242 


UA1 A 

'156242 

36,37 

334,242 

mDLi 

1/10/69 

*B 

0354 

00476 

00126712 


DATA 

'126712 

40,41 

255,312 

MDLi 

1/10/69 


0355 

00477 

00143714 


D A 1 A 

*145714 

42,43 

313,314 

MDLi 

1/1Q/69 

«B 

0356 

00500 

00146716 


UA ? A 

* 146716 

44,45 

315,316 

MDLi 

1/10/69 

* B 

0357 

00501 

0014/720 


UAT A 

*147720 

46,47 

317,320 

MDL! 

1/10/69 

#8 

0358 

00502 

00150722 


UAT A 

*150722 

50,51 

321,322 

MDL; 

1/10/69 

*8 

0359 

00503 

00120644 


UA T 4 

'120644 

52,53 

241,244 

M D L : 

1/10/69 

<•8 

0360 

00504 

00123335 


UA f A 

* 125355 

54,55 

252,355 

MDl 

1/10/69 


0361 

00505 

00133700 


UA I A 

* 135700 

56,57 

273,300 

M»LI 

1/10/69 

»B 

0362 

00506 

00123701 


U A T A 

» 125701 

60,61 

253,301 

M D L > 

1/10/69 


0363 

00307 

00141303 


U A T A 

*141303 

62,63 

302,303 

M D L: 

1/10/69 

*R 

0364 

00510 

00142305 


UA i A 

• 142305 

64,65 

304,305 

MDLi 

1/10/69 


0365 

00511 

JO145307 


UA 1 A 

*143307 

66,67 

306,307 

M D L; 

1/10/69 

*B 

0366 

00512 

0 014 4 311 


UA ! A 

'144311 

70,71 

• 310,311 

MDL; 

1/10/69 

»B 

0367 

00313 

0013/656 


UA 1 A 

'137656 

72,73 

277,256 

MDLi 

1/10/69 


0368 

00514 

00124733 


UA| 4 

•124733 

74,75 

251,333 

mdl : 

1/10/69 





i ■ 
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300015D 



0369 

00616 

00136337 


UA l 4 

•136337 76, 77 2/4,337 'lOu, 

1/10/69 

*8 


0370 

00616 

00000000 

ecDA 

LIL 

# * 




03 71 

00617 

03100533 


sT a 

FS 4 y/ 




0372 

00620 

00000003 


ula 





03 7 3 

00621 

J 0 00x713 


l-.LL 

15 DIVIDE CODE BY TWU 




0374 

00622 

00000006 


i AB 





03 76 

00623 

02600466 


L d A 

TABL.l GtT TWO CODES 




03 76 

00624 

00000024 


SAP 

BCD COOt 0 D DO 




03 77 

00625 

0QQ01013 


FLU 

3 YES 




037 8 

00626 

00000004 


1 BA 

Nitf 




0379 

00627 

00001015 


KSL 

ft ■ 




0380 

00630 

00000005 


1' AB 





0381 

006 31 

01100533 


LAA 

P s A V 




0382 

00532 

11300516 


dRU* 

BLDA 




0383 

00533 

25400000 

F SAV 

UAL 

0 




0384 

00534 

25400000 

SI x; 

UAL 

0 



00162500 

0385 

00535 

25400000 

FC ' 

UAL 

0 



00162700 

0386 

00536 

25400000 

BA 

LIAU 

0 



00162800 

0387 

00537 

23400000 

NC 

UAL 

0 



00162900 

0388 

00540 

25400000 

W0RU 

UAL 

0 



00163000 

0389 

00541 

00177720 

LINE 

U A T A 

-•60 



00163100 

0390 

00542 

25400000 

SON 

UAL 

0 0 


C* A 


0391- 

00543 

25400000 

sun 

UAL 

0 0 


Ci< A 


0392 

00544 

25400000 

t on 

UAL 

0 0 


CKA 


0393 

00545 

00000542 

Fl 

too 

SON 


CKA 


0394 

00545 

00000543 

W D 

cQu 

SON 


CKA 


0395 

00545 

00000544 

P A Gt 

too 

TJN 


CKA 


0396 



«• 





00173400 

0397 



« 





00173500 

0398 

00545 

oooooooo 

F C N 1 

rl L 1 





0399 





•THIS SUBROUTINE OUTPUTS C/R,LF ON SUN. 



00148800 

0400 

0054b 

11000000 

CL 

B R u 

* » 



00148900 

0401 

00547 

01100053 


LA A 

CRTN 




0402 

00550 

12100123 


SPB 

0 JTp 




0403 

00551 

01100053 


LAA 

LNFD 




04 04 

00552 

12100123 


SPB 

7)0 TP 




04 06 

005 53 

00000003 


LL a 




00149400 

0406 

00554 

03100635 


ST A 

FC 




0407 

00555 

11300646 


BRU# 

CL 



00149600 

04Q8 

00556 

01100636 

MAG*! 

LAA 

BA 




0409 

00557 

03100670 


ST A 

A BCD 







o 


■”0 
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0410 

00560 

33100631 


STA 

calh+i 

0411 

00561 

31100537 


LAA 

NIC 

0412 

00562 

00000002 


NED 


0413 

00563 

03100571 


STA 

ABCD+1 

0414 

00564 

01100776 


LAA 

bflg 

0415 

00565 

00000024 


SAP 


0416 

00566 

11100572 


dRO 

BRD 

0417 

00567 

55100000 


CALL 

ASCBCU 

0418 

00570 

oooooooo 

abcd 

«*# 

## 

0419 

00571 

oooooooo 




0420 

00572 

12100612 

brd 

Spd 

ROWR 

0421 

00573 

11300005 


dRU# 

H$RR 

0422 

00574 

01100536 

magi 

LAA 

BA 

0423 

00575 

03100607 


sta 

BCD 

0424 

00576 

01100537 


LAA 

NO 

0425 

00577 

00000002 


NEu 


0426 

00600 

03100610 


STA 

8 C 0 *• 1 

0427 

00601 

12100612 


SPd 

RURR 

0428 

00602 

01100776 


LAA 

9FLG 

0429 

00603 

00000024 


SAP 


0430 

00604 

11300005 


BRU# 

HifcRR 

0431 

00605 

00000003 


CLA 


0432 

00606 

55100000 


CALL 

BCDASC 

0433 

00607 

oooooooo 

BCD 

### 

«» 

0434 

00610 

oooooooo 


*** 

#* 

0435 

00611 

11300005 


BRU» 

HiRR 

0436 



* 



0437 



* RtAU OR 

WRITE 

0438 



# 



0439 

.00612 

oooooooo 

ROWR 

#»* 

## 

0440 

00613 

02100772 


LB A 

CLBJ 

0441 

00614 

01100776 


LAA 

BFLG 

0442 

00615 

00000023 


SAiN 


0443 

00616 

02100773 


LBA 

clh$ 

0444 

00617 

04100630 


STB 

calh 

0445 

00620 

01100536 


laa 

BA 

0446 

00621 

03100631 


STA 

CALH+1 

0447 

00622 

01100537 


LAA 

NO 

0448 

00623 

00000002 


NEC 


0449 

00624 

03100632 


STA 

CALH+2 

0450 

00625 

01100775 


LAA 

M25 


O 


o 


GENERAL 1 SOURCE UPDATE 300015D 


IS IT BINARY I/O 
YES 

TRANSLATE FROM ASCII TO BCD 


BINARY 1/0 

YES 

NO 


9 RECORD 


IS IT BINARY 1/0 

NO 

YES 


BASt ADDRESS 


30001?D 


PAGE 

30 

DATE N0V, 7 

,1969 

810A/B 

GENERAL SOURCE UPUATE 

0451 

00626 

J31QU774 


8 T A 

CNTZ 


0452 

006 27 

01100771 


LA A 

LUM 


0453 

00630 

oooooooo 

CALM 

*** 

** 

CALL HTWRM7 OR 8SWRM7 

0454 

00631 

U0000000 


*#* 

** 

DAC BA 

04 55 

00632 

OOOOOOOO 


#** 

»* 

DATA N 

0456 

00633 

p5100000 

AGA6 

GALL 

s t> s r 7 


0457 

00634 

oooooooo 


*#* 

#* 


0458 

00635 

01100634 


laa 

*-i 


0459 

00636 

0000UQ24 


SAP 


13 IT BUSY 

0460 

00637 

11100633 


BRU 

A 0 A Q 

YES 

0461 

00640 

55100000 


call 

0BWCT 

OBTAIN WORD COUNT 

0462 

00641 

00000022 


SA Z 


IS WORD COUNT COMPLETE 

0463 

00642 

11100661 


BRU 

ERWC 

NO 

0464 

00643 

01100634 


laa 

AUAG+1 

NO 

0465 

00644 

00000516 


LSL 

5 


Q466 

00645 

00000023 


SAn 


PARITY ERROR 

0467 

00646 

11300612 


BRU* 

ROWR 


0468 

00647 

14100774 


1Mb 

CNTZ 

YES-HAVE WE TRIED 25 TINES 

0469 

00650 

11100723 


BRU 

BACK 


0470 

00651 

02100742 


L8rt 

L018 


04 71 

00652 

12100706 


bPb 

TYPE 


0472 

00653 

00150301 


ua r A 

••PARITY " 


0472- 

00654 

00151311 





0472 

00655 

00152331 





0472 

00656 

00120240 





0473 

00657 

oooooooo 


HLf 



0474 

00660 

11300612 


BRU* 

ROWR 


0475 

00661 

01100634 

erwc 

LAA 

A 0 A G +1 


04 76 

00662 

00000116 


LSL 

1 


0477 

00663 

00000023 


SAN 


E-O-F 

0478 

00664 

11100675 


BRO 

INVL 


0479 

00665 

02100734 


LB A 

L025 


0480 

00666 

12100706 


bPb 

TYPE 


0481 

006 6-7 

00142717 


UA 1 A 

' 'EUR » • 


0481 

00670 

00143240 





0482 

00671 

OIOOOOQO 


LAA 

= 0 


0483 

00672 

11300005 


oRU » 

H J> W P 

- 

0484 

006 73 

oooooooo 


nLl 



0485 

006 7 4 

11300612 


bP j * 

PLHrt 


0486 

00675 

02100777 

I N V L 

L d A 

M 0 


0487 

Q0O 76 

12100/06 


bPd 

T Y=>c 



o 



o 


o 



o 


o 



O 



0 


PAGE 

31 

DATE N0V, 7 

,1969 

810A/B SI 

0488 

00677 

JO1513Q5 


U A I A 

•MtC. lENG*' 

0488 

00700 

00141656 




0488 

00701 

00120314 




0488 

00/02 

00142716 




0488 

00703 

00143640 




0489 

00/04 

00000000 


hl r 


0490 

00/05 

11100627 


dRU 

CALH-1 

0491 



* TTPtOUT 

ROUTINE 

04 92 



« 



0493 

00/06 

00000000 

TYPt 

»«* 

** 

0494 

00 7 07 

01101000 


LAM 

CRLL 

0495 

00710 

00170101 


A OP 

1,4 

0496 

00711 

00001016 


LSL 

8 

0497 

00712 

00170101 


A0P 

1,4 

0498 

00713 

01300706 

A0U T 

LAA * 

T Y°E 

0499 

00714 

00170101 


A0P 

1,4 

0500 

00715 

00001016 


LSL 

8 

0501 

00716 

00170101 


A0P 

1,4 

0502 

00717 

141007Q6 


IMS 

T Y P E 

0503 

00720 

00000026 


IBS 


0504 

00721 

11100713 


URO 

A0UT 

0505 

00722 

11300706 


dRU* 

T Y p E 

0506- 

00723 

01100771 

BAG* 

LAa 

LON 

0507 

00724 

55100000 


call 

BSSP7 

0508 

00/25 

p5i00000 

AGAN 

CALL 

Sf ST7 

0509 

00726 

00000000 


*** 

# * 

0510 

00727 

01100726 


LAA 

*-l 

0511 

00730 

00000024 


SAP 


0512 

00731 

11100725 


dRU 

A G AN 

0513 

00732 

11100627 


dRU 

CALH-1 

0514 



# 



0515 

00 733 

00003000 

fcXCL 

UA 1 A 

’ 3000 

0516 

00734 

0017/776 

L 0 2 5 

UA 1 A 

-2 

0517 

00 7 35 

00000377 

L067 

UA 1 A 

•377 

0518 

00736 

JO 0.0 0240 

LOOP 

UA r A 

».2,40 

0519 

00 73 7 

00000261 

Lll 7 

UA I A 

' 261 

0520 

00 7 40 

00000260 

LO 74 

UAT A 

* 2 60 

0521 

00/41. 

00177720 

L07 7 

U A T A 

* -60 

0522 

00742 

0017/774 

L01 0 

U A 1 A 

-4 

0523 

00/43 

0 J 0 0 0 2 5 3 

L102 

UA 1 A 

* 2 5 3 

0524 

00/44 

00000740 

LOU 

too 

LO 74 


GENERAL: SOURCE UPDATE 3Q0015D 


BACK SPACE RECORD 

IS TAPE BUSY 
YES 

SPACE 


002/9300 



PAGE 

32 

DATE N0V. 7 

,1969 

810A/B 

0525 

00744 

00000000 

D 2 R ^ 

0 A 1 A 

0 

0526 

00745 

00000020 

LQ32 

UA r A 

16 

0527 

00/46 

00000040 

\JQ2d 

UA f A 

, H Q 

0528 

00/47 

J0000012 

0003 

U A 1 A 

*12 

0529 

00 750 

00000247 

noio 

U A 1 A 

* 24/ 

0530 

00/51 

0017/777 

LOl'i 

uaI A 

* 1777/7 

0531 

00752 

0017/773 

L050 

UA 1 A 

-5 

0532 

00753 

0017/660 

L001 

UA 1 A 

-80 

0533 

00754 

ooooiooo 

L004 

UAI A 

* 001000 

0534 

00755 

00000212 

L053 

UA I A 

• 212 

0535 

00756 

00000215 

L052 

UAT A 

• 215 

0536 

00/57 

35400345 

HOU 

UAG 

P0T1 

0537 

00760 

85400400 

LlOl 

UAG 

PR 01 

0538 

00761 

00170101 

A0P1 

A0P 

1,4 

0539 

00762 

00170300 

A I PU 

A1P 

0,4 

0540 

00763 

00170100 

A 0 P-.O 

A0P 

0,4 

0541 

00764 

00130100 

CEUlJ 

GEU 

0,4 

0542 

00765 

00000336 

kdel 

UAI A 

*336 

0543 

00766 

00177622 

FllO 

UAT A 

-110 

0544 

00 767 

25401060 

F W A 

UAG 

* 1060 

0545 

00770 

25401061 

bl 

UAG 

*1061 

0546 

00771 

25400000 

LDN 

UAG 

0 

0547- 

00772 

35100000 

CLBi 

GALL 

9S4RM7 

0548 

00773 

35100000 

CLHt 

GALL 

MS4RM7 

0549 

00774 

00000001 

CNT2 

ass 

1 

0550 

00775 

0017/747 

M25 

UA I A 

-25 

0551 

00776 

OOQOOOOl 

BFLO 

ass 

1 

0552 

00777 

0017/773 


UAT A 

-5 

0553 

01000 

00106612 

CRLL 

UA I A 

•106612 

0554 

01001 

70400000 


fcNU 


ERRORS 0000 

00000 





GENERAL S63URCE UPOATE 


30001SD 


ASR 33 TYPE C0Dt 00001800 

00006700 

00006600 

00009000 

00009100 


DELETE A LINE CidDE IS THE * *UP ARR0R’ ' 

F£C 

FEC 

FEC 

00162600 


COUNT 0F ATTEMPTS T0 REAO/WRITE MaG TAPE 


BINARY FLAG 





.-o ■ 


o 

o 


o 

• 

PAGE 33 

date 

N0V. 7 *1V69 

810A/B GENERAL S0URC6 UPDATE 

3QOQ10D 




.,.EXTERNALS. , 

• 


ASC8CD 

41.7 


8SSP7 

807 


BiWR 

2 V 


B i W R M / 

34 / 


BCDASJ 

438 


HiWR 

2d 


HSWRM 7 

S48 


LINE 

3U 


00WCT 

461 


.Si ST 7 

486 

5Qb 



PAGE 34 


DATE 

my. 

7,1969 


810A/B 

GENERAL 

. , .symbolics. 

f t 






A BCD 


4 0V 


413 

It 

418 


AUAG 

If 

456 


46U 


464 

475 

AuiAi\J 

# 

506 


512 




A IPO 


66 

it 

539 




A i PC 


66 


i 09 




AMBl 


301 

it 

326 




AMB4 


304 

it 

32/ 




AM85 


296 

# 

326 




A0PO 


82 

fl¬ 

5 4 U 




A0P1 


7 U 

it 

536 




AiflPC 


80 

# 

112 




A0P0 


84 

it 

116 




AOUT 

« 

498 


504 




BSWR 


29 


-32 


33 


BA 


46 


' 85 


96 

106 



445: 






BACK 


469 


506 




BCD 


423 


426 

It 

433 


BCDA 


32 9 

fl¬ 

3 70 


382 


BPtG 


• 39 


414 


428 

441 

BL 

« 

5 4 P 






BRD 


416 

it 

420 




CALM 


410 


444 


446 

449 

CfcUQ 


54 


541 




CtUL 


56 

# 

59 




C l NP 


180 

it 

292 




cu 


23/ 


243 


255 

262 

ClBS 


440 

* 

54/ 




CLHJ . 


443 

* 

546 




CNTZ 


451 


466 

It 

549 


CON V 


86 


'88 


89 

95 



270 


295 


- 


CRLF 


234 ' 


235 


244 * 

245 

CRLL 


494 


553 




crtn 

It 

75 


401 




D003 


321 


326 

It 

5 28 


noi8 

# 

529 






0022 


314 


32/ 

It 

527 


DATL 


58 

# 

60 





SOURCE UPDATE 


300Q15D 


211 212 * 386 408 422 


* 551 

* 456 490 513 

* 400 407 



PAGE 35 


DATE N0V. 7 ,1969 


81 QA/B GENERAL SOURCE UPOATE 


3000150 


DATZ 


3 / 


79 

* 

131 


DZR0 


294 

* 

525 




ERWC 


4 63 

* 

475 




EXGL 


302 

* 

515 




FI, 


43 


102 


104 

184 

F110 

* 

343 






FC 


44 


222 


264 

269 

FCNT 


293 


322 


323 

« 396 

FHZ9 


292 

* 

332 




FSA V 


371 


381 

* 

383 


FWA 


544 






H4WR 


26 


34 

* 

3 7 

45 



205 


20/ 


215 

220 



483 






IAD1 


183 

« 

216 




IMS 


320 

« 

,323 




I N P C 


93 

* 

'106 


114 

201 

I MPT 


81 

* 

93 


96 

187 

i*mvl 


478 

* 

486 




koel 


36 


19/ 

* 

542 


L001 

# 

532 






L003 


210 

# 

516 




L004 • 


299 

# 

533 




LOU 


27/ 

Hr 

524 




L013 

* 

530 






L018 


253 


47U 

* 

522 


L025 


35 


~42 


61 

206 

L035 


30/ 


31/ 


526 


L050 

* 

331 






L.052 


194 


202 


218 

* 535 

L053. 


191 

* 

534 




L067 


186 


51/ 




L074 


232 

# 

520 


524 


L077 


251 


521 




L100 


25 9 ' 

« 

536 




LlOl 


26/ 


53/ 




L102 


2/1 


523 




L117 


229 


2/4 

* 

319 


LALO 

* 

42 


2 09 




LON 


4 0 


8/ 


9 4 

206 

LIME 


30 


236 


246 

252 


260 

268 

* 393 



385 

406 




47 

48 

51 

53 

105 

263 

291 

421 

430 

435 

21 7 





190 

193 





479 * 316 


452 306 * 546 

* 389 




PAGE 36 


DATE 

N0V. 

7,1969 


81QA/B 

GENERAL 

INFO 

« 

7 7 


403 





ISL- 

t 

81b 


324 





M25 


450 

* 

65 U 





M5, . 


48b 

* 

■552 





MAGI 


13/ 


13b 


139 


140 

MAG0 


118 


119 


120 


121 

MTU 

# 

31 







MG 


50 


100 


213 

* 

387 

M«JTU 


101 

# 

i 0 6 





NPG 


240 


24b 

# 

250 


258 

NTU1 


73 

* 

79 





NWPG 


231 


238 





06 TH 


296 


338 





0NEL 

# 

280 


286 





0STY 


311 

# 

334 





0UTP 


90 

* 

115 


11/ 


402 

PAGE 


254 


256 


395 



P0T1 

# 

262 


536 





POUT 


172 


175 

# 

259 



PR01 


273 

* 

289 


537 



PR0T 


173 

* 

264 





RUHR . 


420 


42/ 

* 

439 


467 

SON • 

* 

390 


393 





six 

* 

384 







S0UT 


6 3 

* 

82 





SPB0 


89 


22/ 


241 



stab 

# 

9b 


19b 


200 


331. 

STB 


308 


325 

# 

329 



SUN 

# 

391 


394 





tabl 

# 

338 


375 





tcrd 


196 

* 

210 


214 



TEST 


91 


9/ 

* 

99 


10/ 

TiNP 


178 


179 


182 

* 

183 

T^Tl 


22 4 . 


22b 





T0T2 


174 

* 

225 


236 


261 

TOUT 


176 

* 

222 





TUN 


392 


395 





trln 

# 

234 







TR0L 


279 

* 

283 





TYPE 


4 71 


480 


48/ 

* 

493 

UNIT 


55 


6/ 


83 

# 

158 


SOURCE. UPDATE 3Q0015D 


141 

142 

143 

144 

* 422 

122 

123 

124 

125 

* 408 

411 

424 

44/ 




404 


474 485 


266 282 2B8 


498 502 505 


n 





•«jg= 





( ) 



() 





o 

: 


u 



o 

PAGE 

37 

DATE 

N0V, 

7,1*969 

B10A/B 

GENERAL 

SOURCE UPOATE 

W 


74 


70 

<2 80 

<283 

286 289 



501 


53d 

539 

540 

541 

W6W1 


* 85 


9c; 




WU; 


6 2 

* 

3 9 4 




WORu 


* 588 






7 0 0 L 


276 

a- 

286 






30001513 
495 497 



499 






PAGE 

39 

DATE N0V, 

7*1969 

810A/B 

GENERAL SOURCE, UPDATE 300015D 

0041 

00010 

14100000 


IMS 

33 4 R 


0042 

00011 

01300000 


LAA* 

334R 


0043 

00012 

02000000 


LB A 

= ' 100000 


0044 

00013 

00000030 


OB A 



0045 

00014 

03001061 


S T A 

FwA + 1 

NO OF WORDS AND INITIALIZE BTC 

0046 

00015 

12100222 


SPb 

4 R R 


0047 

00016 

14100000 


I Mb 

334R 


0048 

00017 

11300000 


. b R U * 

3 3 4 R 


0049 



* 




0050 



» 

HE.AU/alK I TE BCD 1 character/word 

0051 



* 




0052 

00020 

00000000 

H$WK *** 



0053 

00021 

03100234 


bTA 

LOM0 


0054 

00022 

12100202 


SPb 

OTRA 

GET TRANSPORT NO 

0055 

00023 

11300020 


bRU» 

H34R 

ERROR EXIT 

0056 

00024 

02000501 


LB A 

= •501 

BCD 1 CHARACTER/WORD DENSITY 556 DPI 

0057 

00025 

12100171 


bPb 

SETP 

SETUP 

0058 

00026 

01300020 


L A A # 

H3 4R 


0059 

00027 

03001060 


bTA 

FWA 


0060 

00030 

14100020 


I Mb 

H3WR 


0061 

00031 

01300020 


LAA* 

H34R 


0062. 

00032 

02000000 


LBA 

= ■» 100000 

INITIALIZE BTC BIT 

006 3' 

00033 

00000030 


08 A 



0064 

00034 

03001061 


bTA 

FW A ♦ 1 


0065 

00035 

12100222 


SPb 

4RR 


0066 

00036 

14100020 


1 M S 

H 3 4 R 


0067 

00037 

11300020 


dRU* 

H 3 4 R 


0068 



* 




0069 



* 

HEW 114 0 

TO LOAD POINT 

0070 







0071 

00040 

00000000 

R$W0 »** 



0072 

00041 

12100202 


bPb 

OfRA 

OBTAIN TRANSPORT number- 

0073 

00042 

11300040 


bRU* 

R340 

error exit 

0074 

00043 

02002501 


LBA 

s V2501 

REWIND TO LOAU POINT -•1. CHARACTER/WORD 

0075 

00044 

12100171 


SPb 

SETP 

rewind 

0076 

00045 

113000,40 


dRu# 

R i> W U 


0077 



* 




0078 



* 

bALKb?ACc A RECORD 


0079 



* 




0080 

00046 

oooooooo 

HiSP **« 

** 


0081 

00047 

12100202 


bP b 

0 fRA 

OBTAIN TRANSPORT NUMBER 



■-m- " > R 


PAGE 

40 

DATE N0V, 

7,1969 

810A/B 

GENERAL SOURCE UPDATE 


0082 

00050 

11300040 


BRU# 

RSMU 

ERROR EXIT 


0083 

00051 

02000501 


L8A 

= * 501 



0084 

00052 

12100171 


SPB 

SETP 



0088 

00053 

00130106 


CEU 

TAPE, N 



0086 

00054 

00004040 


D A 1 A 

* 4040 

BACKSPACE A RECORD 


0087 

00055 

11300046 


BRU* 

3$SP 



0088 



* 





0089 



# 

WRITE tMO 0F FILE 



0090 



# 





0091 

00056 

00000000 

E$0K *** 

## 



0092 

00057 

12100202 


SPB 

2ITRA 

OBTAIN TRANSPORT 


0093 

00060 

11300056 


BRU# 

EiOF 

ERROR EXIT 


0094 

00061 

02000501 


UBA 

s' 501 



0095 

00062 

12100171 


SPB 

SETP 

SET UP FORMAT 0 


0096 

00063 

00130106 


CEO 

TAPE.R 



0097 

00064 

00005000 


U A 1 A 

' 5000 



0098 

00065 

11300056 


BRU* 

ES2F 



0099 



* 





0100 



* 

ADVANCE 

RECORD 



0101 



* 





0102 

00066 

00000000 

A$pV *»* 

## 



0103 

00067 

12100202 


SPB 

OTR A 

OBTAIN TRANSPORT 


01Q4- 

00070 

11300066 


BRU# 

ASDV 

ERROR EXIT 


0105 

00071 

02000501 


LB A 

= ' 501 



0106 

00072 

12100171 


SPB 

SETP 

SET UP FORMAT 0 


0107 

00073 

00130106 


LEU 

TAPE, W 



0108 

00074 

00004200 


Da r a 

*4200 

ADVANCE A RcCoRU 


0109 

00075 

11300066 


BRU* 

AS D V 



0110 



* 





0111 



# 

ADVA ivCfc 

: TO END OF 

filf 


0112 








0113 

00076 

oooooooo 

A$Dt *«* 

*# 


» 

0114 

00077. 

12100202 


SPB 

3 T R A 

OBTAIN TRANSPORT 


0115 

00100 

11300076 


BRU# 

ASOE 

ERROR EXIT 


0116 

00101. 

02000501 


L8A 

s * 501 



. 0117 

00102 

12100171 


SPB 

SETP 

SET UP FORMAT 0 


0118 

00103 

00130106 


LEU 

T A 3 E , W 



0119 

00104 

00004100 


U A 1 A 

» 4100 



0120 

00105 

11300076 


BRU# 

A S OB 



0121 








#22 



* 

BALK SPACE TO EMU 

of file 



o 



n 



o 


BUftfr i i jit ft 

A / 

,, , jj,. /tv . ,.. 'i iit-Ag-.-/ 

^ ;— 

-,’T' 



300015D 


_ _ _Q 




0 


PAGE 41 DATE N0V, 7#1969 81QA/B GENERAL SOURCE UPDATE 


0123 



* 




0124 

00106 

oooooooo 

B$EL 

##» 

## 


0125 

00107 

12100202 


SPB 

0 TR A 


0126 

00110 

11300106 


BRU# 

BSEF 


0127 

00111 

02000501 


LBA 

= ' 501 


0128 

00112 

12100171 


SPB 

SETP 

SET UP F0RMAT 7ER0 

0129 

00113 

00130106 


CEU 

T A P E i W 


0130 

00114 

00004020 


DATA 

« 4020 

BACKSPACE TO ENU 0F 

0131 

00115 

11300106 


BRU# 

9SEF 


0132 



* 




0133 



# TEST 51 

AT US OF 1/0 


0134 



* 




0.135 

00116 

oooooooo 

s $ S1 

### 

» # 


0136 

00117 

01077767 


LAA 

= -9 


0137 

00120 

03100233 


bt a 

CNT 

COUNT OF N0, OF TEU 

0138 

00121 

01000000 


LAA 

= * 100000 


0139 

00122 

03100126 

\ 

5TA 

DATA 


0140 

00123 

00000003 


ola 



0141 

00124 

02000001 

AGN 

LBA 

si 


0142 

00125 

00130206 


TEU 

TAPE 

TEST TAPE 

0143 

00126 

oooooooo 

DATA 

##* 

»# 


0144 

0012? 

00000030 


OBA 


YES-SET 

0145- 

00130 

00000116 


LSL 

1 

NOT 

0146 

00131 

00000006 


1 Ati 


SAVE A 

0147 

00132 

01100126 


LAA 

DATA 


0148 

00133 

00000115 


HSL 

1 

GET NEXT TEST 

0149 

00134 

03100126 


ST A 

DATA 


0150 

00135 

00000006 


1 AB 


RESTORE A 

0151 

00136 

14100233 


IMS 

CNT 

HAVE HE DONE 9 TEST 

0152 

00137 

11100124 


BRU 

AGN 

NO 

0153 

00140 

00000616 


LSL 

6 


0154 

00141 

03300116 


ST A# 

SS ST 

PUT IN USER program 

0155 

00142 

14100H6 


1Mb 

S$5T 

increment exit 

.0156 

00143 

11300116 


BRU# 

Sifc S T 


0157 


* 

# 




0158 



* tRASfc 4 

INCHES OF 

TAPE 

0159 



# 




0160 

00144; 

JOOOOOOO 

E$RS 

#*# 

#» 


0161 

00145 

12100202 


bPB 

OTRA 

OBTAIN TRANSPORT NO 

0162 

00146 

11300144 


BRU# 

EiRS 


0163 

0014 7 

02001501 


LBA 

='1501 



3Q0015D 



PAQE 42 DATE N0V, 7,1969 810A/8 GENERAL S0URCE UPDATE 300015D 


0164 

00150 

12100171 


bPb 

ScTp 


0165 

00151 

11300144 


BRU* 

EiRS 


0166 



* 




0167 



# 

OBTAIN 

WORD COUNT 

exit with a register conyaining diference between 

0168 




START AuORESS AND 

CURRENT WORD ADDRESS B REG ^LENGTH OF R6C0R0 

0169 







0170 

00152 

00000000 

WCT *** 

** 


0171 

00153 

01001060 


LAA 

FWA 


0172 

00154 

03100234 


ST A 

LONO 

SAVE FIRST WORD ADDRESS 

0173 

00155 

01001061 


L A A 

FWA + 1 


0174 

00156 

00000116 


LSL 

1 


0175 

00157 

00000115 


RSL 

1 


Q176 

00160 

03001060 


AM A 

FWA 


0177 

00161 

00130106 


OEU 

TAPE , W 


0178 

00162 

00004004 


UA 1 A 

* 4004 

GfcT CURRENT WORD ADDRESS 

0179 

00163 

06001060 


S M A 

FWA 


0180 

00164 

00000006 


v i A tt 



0181 

00165 

01001060 


LAA 

FWA 


0182 

00166 

06100234 


SMA 

LON0 

OBTAIN ACTUAL LfcNGTH OF RECORD 

0183 

00167 

00000006 


i Ad 



0184 

00170 

11300152 


BRU* 

WOT 


0185 



# 




0186- 



* 

SET UP 

FOR 1/0 - 

ENTER A REG TRANSPORT NO 

0187 



* 




0188 

00171 

00000000 

SETP **» 

»# 


0109 

00172 

00000030 


IAS B A 


OR IN TRANSPORT NO 

0190 

00173 

03100175 


STA 

SETU 


0191 

00174 

00130106 


OEU 

TAPE.W 

NO 

0192 

00175 

oooooooo 

SETU *** 

** 


0193 

00176 

11300171 


dRU* 

setp 


0194 



# 




0195 



* 

fcRROR 

routine entfr with minus number in a REG 

0196 



* 




.0197 

0017.7 

oooooooo 

ER0H *** 

* * 


0198 

00200 

oioooo'oo 


LAA 

= * tooooo 


0199 

00201 

11300177 


dRU* 

ERUR 


0200 







0201 




K3 B 1 A 1 M 

transport 

NO 

0202 







0203 

00202 

oooooooo 

*5 TR A *** 

* * 


0204 

00203 

00000024 


S A P 




o 



PAGE 43 DATE N0V. 7*1969 81QA/ 


0205 

00204 

J0000002 


NEB 


0206 

00205 

06000006 


S M A , 

= 6 

0207 

00206 

00000023 


SAN 


0208 

00207 

11100213 


dRU 

PUS 

0209 

00210 

0107/777 

BkEX 

LAA 

5-1 

0210 

00211 

12100177 


SPB 

ER0R 

0211 

00212 

11300202 


dRU* 

0TRA 

0212 

00213 

15000010 

P0S 

CM A 

= 6 

0213 

00214 

11100217 


dRU 

0K 

0214 

00215 

11100210 


dRU 

ER6X 

0215 

00216 

11100210 


dRU 

EREX 

0216 

00217 

00000316 

0K 

LSL 

3 

Q217 

00220 

14100202 


IMS 

0TRA 

0210 

00221 

11300202 


dRU* 

0TRA 

0219 



* 



0220 



* .'ROUTINE 

: T 0 WRITE 

0221 



* ' 



0222 

00222 

00000000 

WRR 

*#* 

»* 

0223 

00223 

02006000 


LB A 

:« 106000 

0224 

00224 

01100234 


LAA 

LUN0 

0225 

00225 

000.00023 


SAN 


0226 

00226 

02-004400 


LBA 

=' 104400 

0227.' 

00227 

04100231 


STB 

10 

0228 

00230 

00130106 


UEU 

T APE » W 

0229 

00231 

oooooooo 

10 

**# 

** 

0230 

00232 

11300222 


dRU* 

WRR 

0231 

00233 

00000001 

CNT 

dss 

1 

0232 

00234 

oooooooi 

LDN0 

dSS 

1 

0233 

Q0235 

70400000 


ENU 


ERRORS 

: 0000 

00000 





B GENERAL SOURCE UPDATE 300015D 


OBTAIN TRANSPORT N0 
IS N0 0K 


ERROR EXIT 

IS IT LESS THAN 8 

YES 

NO 

NO 

NORMAL EXT 


AND READ FROM TAPE 


WRITE A RECORD ANU INITIALIZE BTC 
IS IT INPUT 

READ A RECORD AND INITIALIZE* BTC 


USEU AS COUNTER 
DEVICE NUMBER 






PAGE * 44 

DATE 

,,.EXTERNALS, 

♦ 4 

A i D E 7 

28 

A i D 9 7 

2 / 

BSEF7 

29 

8$SP7 

23 

BSWRM7 

22 

EI0F7 

26 

ESRS7 

31 

hswrm; 

23 

0RWCT 

32 

RiW07 

24 

SSST7 

30 


N0V, 7*1969 


810A/B GENERAL, SOURCE UPDATE 





TT 



3Q0Q15D 


__O 


o 




4 



PAGE 45 

DATE 

MS/, 

7*1969 

810A/B 

GENERAL 

S0URCE 

UPDATE 

3Q0Q15D 



. , ,SY4BdUCS 

i f i 










AiDE 

28 

« 

113 

115 

120 






AiD V 

2/ 

* 

102 

104 

109 






AUN 

* 141 


152 








BiEF 

29 

ft 

124 

126 

131 






B$SP 

26 

* 

80 

8/ 




- 



BiWR 

22 

ft 

33 

36 

39 

41 

42 

47 

48 


CNT 

13 7 


151 » 

231 







data 

139 


143 

147 

149 






ES0F 

2b 

# 

"91 

93 

98 






E4RS 

31 

* 

160 

162 

16s 






ER.EX 

* 209 


214 

215 







ER0R 

* 19/ 


199 

210 







FW A 

* 21 


40 

45 

59 

64 

171 

173 

176 

179 


181 










HiWR 

23 

# 

52 

55 

58 

60 

61 

66 

67 


10 

22/ 

# 

229 








LDN(3 

34 


53 

172 

182 

224 

* 232 




0K 

213 

ft 

216 








PlTRA 

•35 


54 

72 

81 

92 

103 

114 

125 

161 


* 203 


211. 

217 

218 






P0S • 

208 


212 








RSWjJ 

24 

* 

71 

73 

76 

82 





S*ST 

30 

# 

135 

154 

155 

156 





StTP 

38 


~5 / 

75 

84 

95 

106 

117 

128 

164 


* 188 


193 








S6TU 

190 

* 

192 








tape 

» 20 


85 

96 

10 7 

118 

129 

142 

177 

191 


228 










w . 

88 


96 

10/ 

118 

129 

177 

191 

228 


WCT 

32 

* 

17U 

184 







wrR 

46 


65 * 

222 

230 








PAGE 46 DATE N0V. 7.1969 81QA/B GENERAL SOURCE UPDATE 300Q15D 


0001 

tf 


0002 


TRANSLATE BUFFER FROM BCD T0 FULL ASCII 

0003 

# 

It- dll 0 OF REG ZERO PICK DATA FROM BITS 

0004 

* 

PICK DATA FROM dITS 110 TO 15 

0005 


IF dll 1 OF A REG 7ER0 STORE DATA IN- BIT 


0006 



# 



0007 



« 

CALLING SEQUENCE 

0008 



* 

LAA 

FLAG 

0009 



* 

CALL 

3C0A 

0010 



« 

DAC 

dUF 

0011 



« 

UA f A 

N 

0012 



* 



0013 

00000 

oooooooo 


KEL 


0014 

00000 

pOOOOOOO 


NAME 

3CDASC,BCUA 

0015 

00000 

00000000 

BC$A 

### 

## 

0016 

00001 

02100043 


lba. 

R310 

0017 

00002 

00000024 


SAP 


0018 

00003 

02100045 


LBA 

N0P 

0019 

00004 

04100022 


STB 

shft 

0020 

00005 

00000116 


LSL 

1 

0021. 

00006 

02100044 


LBA 

RSL8 

002?. 

00007 

00000024 


SAP 


0023 

00010 

02100045 


LBA 

N0° 

0024 

00011 

04100033 


STB 

SHF 

0025 

00012 

01300000 


LAA# 

BCD A 

0026 

00013 

03100041 


STA 

IND 

0027 

00014 

14100000 


IMS 

BCDA 

0028 

00015 

01300000 


LAA# 

BCOA 

0029 

00016 

00000002 


neg 


0030 

00017 

03100042 


STa 

CNT 

0031 

00020 

14100000 


IMS 

BCDA 

0032 

00021 

01300041 

AGN 

LAA# 

IND 

0033 

00022 

ooooogoo 

s hfi 

### 

*# 

0034 

00023 

00000006 


i Ad 


0035 

00024 

00000003 


OLA 


0036 

00025 

00001/13 


► Li. 

1 0 

0037 

00026 

00000006 


1 Ad 


0038 

0002 7 

02500046 


LBA 

TABL.l 

0039 

00030 

00000024 


SAP 


0040 

00031 

00001013 


ELL 

8 


0-5 ELSE 

IN BITS 8 T8 15 ELSE IN 0-7 

A P0S LEAVES IN LH 8 SITS 
A NEG LEAVES IN RH 8 dITS 


0UR WE T0 ST0RE ASCII IN RH 8 BITS 


BUFFER 

F0RM INDIRECT W0RD 
C0UNT 0F BUFFER LENGTH 

FORM EXIT ADDRESS 
RSL 8 

DIVIDE CODE BY Tw0 
GET TWO C0OES 



O 


« 



( 

) 

O 

i 



o 



( 

\ 

i 

PAGE 

47 

DATE N0V, 7 

*1V6V 

810A/B 

GENERAL S0URCE UPDATE 



300015D 


0041 

00 03 2 

00000004 


1 BA 








0042 

00033 

00000000 

SHF 

# » # 

«Ht 







0043 

00034 

03300041 


OTA# 

I NO 







0044 

00035 

14100041 


i MB 

I N 0 







0045 

00036 

14100042 


1Mb 

CNT 







0046 

00037 

11100021 


BRU 

AGM 







0047 

00040 

11300000 


BRU* 

900A 







0048 

00041 

00000001 

I nD 

tsSa 

1 

INDIRECT 

BUFFER 





0049 

00042 

00000001 

cnt 

BS5 

1 

C0UNT 0F 

NO 0F W0ROS 

LEFT in 

buffer 


0050 

00043 

00001215 

RS1U 

RSL 

10 







0051 

00044 

00001015 

RSL8 

KSL 

9 







0052 

00045 

00000033 

N0P 

NOP 








0053 



* 






MDLi 

1/10/69 

*B 

0054 



* 



BCD 

ASCII 


MDLi 

1/10/69 

*B 

0055 



* 






MDL! 

1/10/69 

*B 

0056 

00046 

00130261 

TABt 

UA | A 

*130261 

00,01 

260,261 


MDLi 

1/10/69 

#B 

0057 

00047 

00131263 

V • 

uaTa 

*131263 

02,03 

262,263 


MDLi 

1/10/69 

*B 

0058 

00050 

00132265 


DATA 

*132265 

04,05 

264,265 


MDL 1 

1/10/69 

#8 

0059 

00051 

00133267 


UATA 

*133267 

06,07 

266,267 


MDLi 

1/10/69 

«B 

0060 

00052 

00134271 


U A f A 

*134271 

10,11 

270,271 


MDL; 

1/10/69 

*8 

0061 

00053 

001-30275 


UAfA 

*130275 

12,13 

260,275 


MDL; 

1/10/69 

*B 

0062 

00054 

00123672 


UAf A 

*123672 

14,15 

247,272 


MDLi 

1/10/69 

*8 

0063- 

00055 

00137300 


uaTa 

* 137300 

16,17 

276,300 


MDLi 

1/10/69 

#B 

0064 

00056 

00120257 


UA j A 

•120257 

20,21 

240,257 


MDLi 

1/10/69 

#8 

0065 

00057 

00151/24 


UAf A 

'151724 

22,23 

323,324 


MDLi 

1/10/69 

#8 

0066 

00060 

0015^726 


UA 1 A 

*152726 

24,25 

325,326 


MOL- 

1/10/69 

*B 

0067 

00061 

00153730 


UAfA 

*153730 

26,27 

327,330 


mDu 

1/10/69 

*9 

0068 

00062 

00154732 


UA j A 

*154732 

30,31 

331,332 


MDLi 

1/10/69 

*B 

0069 

00063 

00157254 


UATA 

• 157234 

32,33 

336,234 


MDLi 

1/10/69 

*8 

0070 

00064 

00124243 


DATA 

* 124243 

34,35 

230,243 


MDLi 

1/10/69 

*B 

0071 

00065 

00156242 


UAl A 

'156242 

36,37 

334,242 


MDLi 

1/10/69 

*8 

0072 

00066 

00126712 


UATA 

*126712 

40,41 

235,312 

, 

mol; 

1/10/69 

#8 

0073 

00067 

00143714 


UA f A 

*145714 

42,43 

313,314 


MDLi 

1/10/69 

«B 

0074 

00070 

00146716 


UAl A 

*146716 

44,45 

315,316 


mol; 

1/10/69 

*8 

0075' 

00071 

00147720 


UA 1 A 

* 147720 

46,47 

317,320 


MDLi 

1/10/69 

*8 

0076 

00072 

00150722 


UATA 

• 150722 

50,51 

321,322 


MDLi 

1/10/69 

*B 

0077 

00073 

00120644 


UA f 4 

*120644 

52,53 

241,244 


MDLi 

1/10/69 

#8 

0078 

00074. 

00125335 


UA i A 

* 125335 

54,55 

232,335 


MDL; 

1/10/69 

*B 

0079 

00075 

00135700 


UATA 

'135700 

56,37 

273,300 


MDLi 

1/10/69 

*B 

0080 

00076 

00123701 


UA j A 

• 125701 

60,61 

233,301 


MDL; 

1/10/69 

#8 

0081 

00077 

00141303 


UA 1 A 

•141303 

62,63 

302,303 


MOL! 

1/10/69 

*8 




PAGE 

48 

DATE N0V, 

7,1969 

810A/B 

GENERAL 

SOURCE UPDATE 


300016D 


joa2 

00100 

00142305 

DA 1 A 

*142305 

64,65 

304,305 

MDl 

1/10/69 

*8 

0083 

00101 

00143307 

U A 1 A 

*143307 

66,67 

306,307 

ML)Li 

1/10/69 

#8 

0084 

00102 

001443H 

UA j A 

• 144311 

70,71 

310,311 

HDt: 

1/10/69 


0085 

00103 

0013/656 

U A F A 

*137666 

72,73 

277,266 

MDLi 

1/10/69 

#8 

0086 

00104 

00124733 

UA 1 A 

* 124733 

74,75 

261,333 

MDU 

1/10/69 

#8 

0087 00105 
0088 00106 
cRR0RS 0000 

00136337 

/040UQ00 

00000 

UAf A 
tNU 

*136337 

76,7 7 

274,337 

Ml)L 

1/10/69 

*8 



r 


n 


n 







V 





PAGE 49 DATE N0V, 7,1969 81QA/B GENERAL S0URCE UPDATE 


,,.EXTERNALS,,. 
BCDASC 14 




300015D 











PAGE 50 DAfE N0v, 7»1969 81 QA/B GENERAL SOURCE UPDATE 3Q0O15D 




AuN 

* 32 


4 b 








BCDA 

1^ 




23 

2/ 


28 

31 

4/ 

C'NT 

30 


45 

* 

49 






I NO 

28 




43 

44 

a 

48 



NOP 

IS 


2b 

# 

52 






RSlU 

16 

* 

5U 








RSL8 

21 

# 

51 








SHE 

24 

* 









SrlFT 

19 


bb 








TA8L 

38 

* 

5o 












PAGE 51 

DATE 

N0V 

, 7,1*69 810A/B 

GENERAL SOURCE UPDATE 

300015D 

0001 


* 




0002 


* 

CWNVEKT FR0M ASCII 

T3- BCD 


0003 


* 




0004 


# 




0005 ' 


* 

CALUlvIb SEQUENCE 




0006 



# 

CAUL 

AS8CD 




0007 



* 

U AC 

9UF 




0008 



# 

U A T A 





0009 

00000 

00000000 


PEL 





0010 

00000 

50000000 


NAME 

ASCBCO,BEGN 




0011 

00000 

oooooooo 

begn 

»»• 

« « 




0012 

00001 

01300000 


L A A* 

BEGN 




0013 

00002 

03100030 


STA 

BUF 




0014 

00003 

14100000 


IMS 

BEGN 




0015 

00004 

01300000 

\ 

LA A» 

BEGN 

NEG COUNT 



0016 

00005 

00000002 


NEC 





0017 

00006 

03100031 


STA 

CNT 




0018 

00007 

14100000 


IMS 

BEGN 


mdli 

1/27/69 

0019 

00010 

01300030 

AGM 

LAA* 

8UF 




0020 

00011 

00001216 


LSL 

10 




0021 

00012 

oaooi2i5 


RSL 

10 




0022-' 

00013 

00000006 


i Ad 





0023 

00014 

00000003 


CLA 





0024 

00015 

00001713 


f LL 

15 




0025 

00016 

00000006 


I Ad 





0026 

00017 

02500032 


LBA 

TA3L.1 




00-27 

00020 

00000024 


SAP 





0028 

00021 

00001013 


•’LL 

8 




0029 

00022 

00000213 


•’LL 

2 




0030 

00023 

04300030 


STd * 

BUF 




0031 

00024 

14100030 


i MS 

9 OF 




0032 

00025 

14100031 


1 Mb 

CNT 

have we finished buffer 



0033 

0002-6 

UlOOOiO 


dRu 

A GN 




0034 

00027 

11300000 


BRU* 

BEGN 

YES 



0035 

00030 

00000001 

BUF 

dSS 

1 




0036 

00031 

00000001 

CivlT 

dSS 

1 




0037 



# 




MDl- 

1/10/69 

0038 



• # 



ASCII BCD 

mdl, 

1/10/69 

0039 



* 




M OLi 

1/10/69 

0040 

00032 

0002/461 

TABL 

UA I A 

' 02/461 

300,301 5/,61 

MOLi 

1/10/69 



PAGE 

52 

DATE N0V. 

7,1969 

810A/B 

GENERAL; SOURCE UPDATE 

300Q15D 


0041 

00033 

00031063 

UA 1 A 

* 031063 

302,303 

62,63 




0042 

00034 

00032065 

UA 1 A 

* 032065 

304,305 

64,65 




0043 

00035 

00033067 

UA I A 

* 033067 

306,307 

66,67 




0044 

00036 

00034071 

UAl A 

*0340/1 

310,311 

70,71 




0045 

00037 

00020442 

U A j A 

*020442 

312,313 

41,42 




.0046 

00040 

00021444 

U A i A 

* 021444 

314,315 

43,44 




.0047 

00041 

00022446 

UA [ A 

* 022446 

316,317 

45,46 




0048 

0004 2 

00023450 

U A V A 

* 023430 

320,321 

4/,50 




0049 

0004 3 

00024422 

UA | A 

* 024422 

322,323 

51,22 




0050 

00044 

00011424 

UA f A 

* U11424 

324,325 

23,24 




0051 

00045 

00012426 

UA f A 

*012426 

326,327 

25,26 




0052 

000 4 6 

00013430 

UAT A 

* 013430 

330,331 

2/,30 




0053 

0004 7 

00014475 

UAl A 

*014475 

332,333 

31,75 


MDL 1/10/69 

*C 

0054 

00050 

0001/055 

UA I A 

*017055 

334,335 

36,55 


MOL! 1/10/69 

*C 

0055 

00051 

00013077 

UA j A 

* 0150/7 

336,337 

32,77 




0056 

00052 

00010052 : 

UAl A 

* 010052 

240,241 

20,52 




0057 

00053 

0001/435 

UA T A 

* 017435 

242,243 

37,35 




0058 

00054 

00025420 

UA f A 

*025420 

244,245 

53,20 


MDy 1/10/69 

*c 

0059 

00055 

00010014 

UA T A 

•010014 

246,247 

20,14 


M 0 L i 1/10/69 

*c 

0060 

00056 

00016074 

UAT A 

* 0160 /4 

250,251 

34,74 

replace 

JPO SEPT 13 

1967 *B 

0061 

0005 7 

00026060 

UA T A 

* 026060 

252,253 

54,60 




0062. 

00060 

00015440 

UA [A 

* 015440 

254,255 

33,40 




0063 

00061 

00035421 

UA T A 

* 035421 

256,257 

73,21 




006 4 

00062 

00005001 

UA l A 

*005001 

260,261 

12,01 




0065 

00063 

00001003, 

UA T A 

*001003 

262,263 

02,03 




0066 

00064 

00002005' 

UA j A 

• 002005 

264,265 

04,05 




0067 

0006 5 

00003007 

UA | A 

* 003007 

266,267 

06,0 7 




0068 

00066 

00004011 

UA l A 

*004011 

270,271 

10,11 




0069 

00067 

00006456 

UA 1 A 

* 006456 

272,273 

15,56 




.0070 

00070 

0003/013 

UA 1 A 

•037013 

274,275 

76,13 




0071 

00071 

0000/07? 

UA T A 

*00/072 

276,277 

16,72 


MOL: 1/10/69 

*C 

0072 

00072 

/ 0 4 0 0 0 0 0 

fcNU 

>. * 
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